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Abstract  (Limit;  200  worda) 


An  Ada  oriented  framework  for  the  design  and  documentation  of  the  U.  S.  Army  TYC-39  store 
and  forward  message  switch  (military  software)  system  is  presented.  This  document  package 
contains  a  Requirements,  Design,  Ada  Integrated  Methodology,  and  Final  Report  section.  A 
methodology  to  use  Ada  in  specifying  requirements,  design,  and  the  implementation  of  a 
system  was  developed.  This  methodology  was  used  to  redesign  the  TYC-39  message  switch 
system.  A  selected  software  module  was  programmed  after  the  redesign. 
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SCOPE 


The  system  requirements  herein  described  are  a  subset  of  the  U.S. 
Army  TYC-39  store  and  forward  message  switch.  In  order  to 
understand  the  terminology  used  in  this  document,  Chapters  1  and 
2  of  the  Ada  Integrated  Methodology  (developed  by  General 
Dynamics  under  the  same  contract)  must  be  thoroughly  reviewed. 

The  purpose  of  this  document  is  to  describe  an  Ada  oriented 
framework  for  the  design  and  documentation  of  an  existing  large 
scale  military  software  system.  It  is  not  a  B5  or  C5 
specification,  although  it  is  anticipated  that  the  Functional 
Decompositional  Models  and  Concurrency  Diagrams  will  form  a  basis 
for  a  B5,  while  the  Ada  Functional  Requirements  should  serve  as  a 
basis  for  C5  equivalent  specifications.  Hardware  and  software 
have  been  specified  functionally  in  Ada  form.  Thus,  the  optimum 
hardware/software  partitioning  and  hardware  description  is  to  be 
a  part  of  the  design  process  (next  phase). 

Due  to  the  complexity  of  the  switch,  certain  considerations  were 
assumed  as  follows: 

1.  Modems,  cryptographic,  and  line  multiplexor  equipment 
are  external  to  the  switch. 

2.  The  data  adapter  equipment  is  not  supported. 

3.  Although  discussed,  the  operator  interface  is  not 
described  here.  A  user  interactive  conversational 
approach  is  recommended,  but  not  considered  a  truly  real 
time  aspect  of  the  system. 

4.  Y-community  traffic  is  considered  only  to  the  extent 
discussed  in  the  non-classified  documents  used  in  the 
project. 

5 .  Although  journal  and  reference  storage  tapes  are 
generated,  the  OFF  LINE  functions,  such  as  message 
search,  are  not  considered. 

6.  Mode  III,  VI,  and  higher  line  protocols  are  not 
included . 
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The  following  documents,  In  addition  to  the  Ada  Integrated 
Methodology  developed  by  General  Dynamics,  were  used  in 
developing  this  specification: 

1.  Performance  specification,  central  office, 
communications,  automatic,  TT-B1-1 101-0001A. 

2.  Standards,  DCS  Autodin  Interface  and  Control  Criteria, 
DCAC  370-D175-1. 

3.  Communication  Instructions,  Tape  Relay-Procedures,  ACP 
127(D). 


4.  Automatic  Digital  Network  (Autodin)  Operating  Procedures 
JANAP  128(D). 


5.  Operator's  Aide,  Automatic  Message  Switching  Central, 
AN/TYC-39,  July  1978. 
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MESSAGE  SWITCH  SYSTEM  DESCRIPTION 


The  purpose  of  the  TYC-39  message  switch  is  to  act  as  an 
automatic  relay' for  digital  message  data  in  a  battlefield 
functional  area  (BFA).  The  equipment  is  van  mounted,  which 
allows  the  mobility  required  by  ground  forces.  Although  the 
messages  originate  at  a  keyboard  terminal,  the  switch  is  capable 
of  interfacing  to  nearly  all  digital  communications  equipment  in 
the  inventory  of  the  U.S.  Army  and  allied  armed  forces. 

The  simplified  message  switch  environment  considered  in  this 
project  is  depicted  in  the  Node  AO-1  diagram.  The  devices  on  the 
left  side,  such  as  paper  tape,  Autodin,  and  other  message 
switches  are  regarded  as  input,  whereas,  devices  on  the  right 
side  of  the  diagram  are  regarded  as  outputs  from  the  message 
switch.  This  does  not  preclude  the  fact  that  message  channels 
are  capable  of  simultaneous  two-way  transmission.  The  Autodin 
network  on  the  left  and  right  sides  of  the  diagram  could  be  the 
same  network  access  over  a  two-way  channel.  Any  combination  of 
up  to  fifty  channels  can  be  connected  to  the  switch.  The  switch 
requires  the  use  of  non  volatile  storage  for  history  of  message 
activity  and  as  a  backup  in  case  of  memory  failure.  Since  this 
*tudy  did  not  consider  cryptographic  and  modem  equipment,  none  is 
shown  in  the  diagrams. 

Internal  message  switch  processing  is  depicted  by  the  top 
level  functional  decomposition  model  (Node  AO).  After  switch 
startup,  program  load,  and  database  initialization,  incoming 
messages  are  received,  validated  for  proper  format,  and  forwarded 
to  their  final  destination  or  other  relay  points.  The  details  of 
this  process  are  explained  in  the  following  paragraphs. 

System  startup  (A1)  consists  of  switch  initialization  and 
sending  the  start  command  to  each  of  the  other  functions  of  the 
switch.  Startup  is  a  relatively  simple  subset  of  system 
recovery,  which  will  be  discussed  later. 

The  "operator  interface"  function  (A2)  is  used  to  communicate 
with  the  personnel  operating  the  system.  They  must  be  able  to 
enter,  verify,  and  change  database  information  which  the  switch 
uses  to  determine  message  routing  and  line  or  trunk 
characteristics.  Other  interface  commands  obtain  information 
about  switch  performance,  cause  printouts  of  specific  messages, 
trace  messages  through  the  system,  or  exhibit  various  information 
about  messages  passing  through  the  switch.  The  information 
required  for  the  printouts  comes  primarily  from  the  reference  and 
journal  files.  Other  operator  commands  deal  with  system 
shutdown,  re-introduction  of  undeliverable  messages,  diagnostic 
capability,  etc. 

Although  the  remaining  functions  of  the  switch  operate 
simultaneously  on  up  to  fifty  different  messages,  for  a  single 
message,  processing  may  be  viewed  as  a  sequential  process. 
Activity  within  the  message  switch  is  created  by  receipt  of 
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multiple  serial  bit  streams  (message  data)  at  the  "assemble 
messages"  function  (A3,  left  side).  The  bit  streams  are 
converted  to  characters,  lines,  and  blocks  until  a  complete 
message  is  received.  The  function  must  be  capable  of  dealing 
with  several  different  protocols,  ranging  from  fully  asynchronous 
with  no  blocking  and  no  acknowledgement  or  other  control  to 
rigidly  blocked  synchronous  traffic  with  block  by  block 
acknowledgement.  Received  messages  must  be  validated  for  proper 
format  to  eliminate  garbled  transmissions.  High  precedence 
messages  may  be  passed  even  with  some  specified  errors.  The 
"assemble  messages"  function  keeps  a  log  of  its  operations  on 
each  message  in  the  reference  file.  It  also  routes  a  complete 
copy  of  each  message  as  it  was  received  to  the  reference  file, 
and  queues  received  messages  by  predecence  for  "process  message". 

The  "process  messages"  function  (A4)  obtains  received 
messages  from  the  input  queue,  determines  output  routi 
performs  any  necessary  translation,  and  queues  for  tra:  jission. 
Once  a  message  has  been  accepted  and  queued,  a  copy  is  >uted  to 
the  "in-transit"  file  (process  delineated  as  a  subset  t  (4).  If 

the  "in-transit"  file  becomes  filled  beyond  a  certain  i  eshold, 

incoming  messages  are  diverted  to  the  "overflow"  file,  are 
automatically  reentered  into  the  system  as  the  "in-tra*.  s:  file 

lower  threshold  is  reached. 

Messages  may  have  more  than  one  destination.  When  a  message 
must  be  transmitted  over  more  than  one  channel,  the  portion  of 
the  message  containing  the  routing  information  (the  routing  line) 
must  be  edited  to  remove  destinations  not  applicable  to  each 
individual  channel.  In  addition,  different  destinations  may 
require  differing  formats  (JANAP-128  vs.  ACP-127)  or  different 
character  codes  (ASCII  vs.  ITA#2).  If  so,  these  transformations 
are  provided  at  this  point.  Routed  messages  are  then  sent  back 
to  the  in-transit  file  unless  the  channel  for  the  message  is 
marked  as  closed,  in  which  case  the  message  is  sent  to  the 
intercept  file.  Messages  in  the  intercept  file  may  be  re¬ 
introduced  on  operator  command. 

The  "transmit  messages"  function  (A5)  converts  the  routed 
message  into  a  bit  stream  and  transmits  it.  This  function  must 
be  able  to  handle  simultaneous  operation  of  up  to  fifty  lines 
with  several  different  protocols.  Any  blocking  or  control 
characters  must  be  added  at  this  stage.  Final  validation,  to 
include  a  check  that  the  security  classification  limit  for  this 
line  is  not  exceeded,  is  performed  at  this  time.  The  transmit 
function  also  keeps  a  log  of  its  activities  in  the  journal  file. 

The  recovery  function  (A1)  must  insure  that  messages  being 
processed  at  the  time  of  a  system  failure  are  not  lost.  To  do 
this,  the  journal  file  is  used  to  perform  an  audit  of  the 
messages  received  by  the  switch.  Any  message  which  had  not 
completed  its  final  delivery  at  the  time  of  the  failure  is  re¬ 
introduced  into  the  system  from  the  reference  file,  and  labeled 
as  a  "suspected  duplicate". 
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In  all  operations  the  switch  must  maintain  high  standards  of 
reliability  and  throughput.  The  switch  must  operate  on  a 
priority  basis,  with  first-in-first-out  operation  within 
precedence . 
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STARTUP /RECOVERY 


—All  INITIALIZE  SYSTEM 
—REV  BAA 
—12/3/81  PD 

procedure  INITIALIZERS YSTEM  Is 
begin 

— >  SET  UP  SYSTEM  TABLES  FROM  PROGRAM  LOAD  FILE 
— >  (OR  OPERATOR  CONSOLE) 

— >  CLEAR  BUFFERS 
— >  INITIALIZE  LINE  HANDLERS 
end  INITIALIZE  SYSTEM; 


REINTRODUCE  MESSAGES 


— A 121  AUDIT  JOURNAL 
—REV  BAAA 
—11/24/81  PD 

procedure  AUDIT  JOURNAL  is 
begin  " 

for  all  LOG  ENTRIES  in  HISTORY  FILE  loop 
ease  ENTRY  TYPE  is 
when  EOM“IN  *> 

— >  ADU  message  id  to  current  list 

when  SVC  GEN  *>  ” 

— >  ADTJ  message  id  to  current  list 

when  EOM  OUT  «>  “  ” 

if  LAST  COPY  then 

— >REffOVE  MESSAGE  ID  FROM  CURRENT  LIST 
end  if;  ”  “* 

when  OVERFLOW  OUT  a> 

— >  REMOVE  MESSAGE  ID  FROM  CURRENT  LIST 
when  OVERFLOW  IN  *>  ”  “ 

— >  ADD  MESSAGE  ID  TO  CURRENT  LIST 
when  INTERCEPT  OUT  => 

— >  REMOVE  MESSAGE  ID  FROM  CURRENT  LIST 
when  INTERCEPT  IN  a>“ 

— >  ADD  MESSlGE_ID  TO  CURRENT_LIST 
when  others  =>  ~  ~ 

null; 
end  case; 

— >  COLLECT  LAST  CSN  FOR  EACH  LINE 
end  loop; 

end  AUDIT_JOURNAL; 


EOT.. 
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—A  122  RECOVER  INTRANSIT  MESSAGES 
—REV  BAAA 
—11/24/81  PD 

procedure  RECOVER  INTRANSIT_MESSAGES  is 
begin  "  “ 

for  all  MESSAGES  ON  HISTORY  TAPE  loop 
if  MESSAGE  ID  ON  CURRENT  ttST  then 

— >  add  Message  to  recovered  messages 

— >  REMOVE  MESSAGE  ID  FROM  CURRENT  LIST 
end  if;  ” 

end  loop; 

if  CURRENT  LIST  not  EMPTY  then 
— >  NOTIFY  OPERATOR 
end  if; 

end  RECOVER  INTRANSIT  MESSAGES; 


INTRANSIT 


HANDLE  PARTIAL  FAILURES 


— A 131  INTRANSIT  FAILURE 
—REV  BAAA 
—11/25/81  PD 

procedure  INTRANSIT  FAILURE  Is 
begin  “ 

If  FIRST  FAILURE  then  —ONE  COPT  OF  INTRANSIT  STORAGE  REMAINING 
— >  NOTIFY  OPERATOR 
If  FAILED  UNIT  »  CURRENT  UNIT  then 
CURRENfUNTI  :»  BACKUP“UNIT; 
end  if;  “  “ 

else  —  NO  COPIES  OF  INTRANSIT  STORAGE  LEFT 
— >  NOTIFY  OPERATOR 
— >  FAIL  SYSTEM 
end  if; 

end  INTRANSIT  FAILURE; 


EOT 


OVERFLOW  FAILURE 


— A 1321  PERFORM  OVERFLOW  AUDIT 
—REV  BAAAA 
—11/24/81  PD 

procedure  PERFORM_OVERFLOW_AUDIT  is 
begin  *”  “* 

for  all  LOG  ENTRIES  in  HISTORY  FILE  loop 
if  ENTRY  Type  «  OVERFLOW  OUT“then 

— >  adE  message  id  to  Overflow  list 

elaif  ENTRY  TYPE  *  OVERFLOW  IN  tTTen 

— >  DELETE  MESSAGE_ID  FROff  OVERFLOW_LIST 
else  “  " 

null; 
end  if; 
end  loop; 

end  PERFORM  OVERFLOW  AUDIT; 


— A 1322  RECOVER  OVERFLOW  MESSAGES 
—REV  BAAAA 
—11/24/81  PD. 

procedure  RECOVER  OVERFLOW_MESSAGES  is 
begin  "*  “ 

for  all  MESSAGES  ON  HISTORY  TAPE  loop 
if  MESSAGE  ID  ON  OVERFLOW“LIST  then 
— >  ADD  HESSAGE  TO  NEW  OVERFLOW  FILE 
— >  REMOVE  MESSAGE  ID  FROM  OVERFLOW  LIST 
end  if;  “  ” 

end  loop; 

if  OVERFLOW  LIST  not  EMPTY  then 
— >  NOTIFY  operator 
end  if; 

end  RECOVER  OVERFLOW_M£SSAGES ; 


INTERCEPT  FAILURE 


— A1331  PERFORM  INTERCEPT  AUDIT 
—REV  BAAAA 
—11/24/81  PD 

procedure  PERFORM_INTERCEPT_AUDIT  is 
begin  ~ 

for  all  LOG  ENTRIES  in  HISTORY  FILE  loop 
If  ENTRY  Type  3  INTERCEPT  OUT  then 

— >  adT5  message  id  to  intercept  list 

elslf  ENTRY  TYPE  I  INTERCEPT  IN  tFen 

— >  DELETE  MESSAGE  ID  FROM” INTERCEPT  LIST 
else  “ 

■null; 
end  If; 
end  loop; 

end  PERFORM  INTERCEPT  AUDIT; 


EOT 


— A 1332  RECOVER  INTERCEPT  MESSAGES 
—REV  BAAAA 
— 11/2A/81  PD 

procedure  RECOVER^ INTERCEPT  MESSAGES  is 
begin  “  " 

for  all  MESSAGES  ON  HISTORY  TAPE  loop 
If  MESSAGE  ID  ON  INTERCEPT  LIST  then 
— >  ADD  MESSAGE  TO  NEW  INTERCEPT  FILE 
— >  REMOVE  MESSAGE_ID  FROM  INTER7EPT_LIST 
end  if;  “*  “ 

end  loop; 

if  INTERCEPT  LIST  not  EMPTY  then 
— >  NOTIFY”* operator 
end  if; 

end  RECOVER_INTERCEPT  MESSAGES; 


— A134  HISTORY  FAILURE 
—REV  BAAA 
—  12/3/81  PD 

procedure  HISTORY  FAILURE  is 
begin  ™ 

if  A  COPY  of  HISTORY  REMAINS  then 
— >  NOTIFY  OPERATOR 

— >  RECOPY  REMAINING  HISTORY  FOR  NEW  BACKUP 
else 

— >  NOTIFY  OPERATOR 
— >  START  NEW  HISTORY  FILE 
end  if; 

end  HISTORY  FAILURE; 
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RECEIVE  VALID  CHARACTERS 


—  A311  SELECT  INPUT  DATA  TYPE 

—  THE  PURPOSE~OF  THIS  ROUTINE  IS  TO  DESCRIBE  THE  REQUIREMENTS 

—  TO  SELECT  EITHER  SYNCHRONOUS  OR  ASYNCHRONOUS  DATA  PROCESSING 

—  DEPENDING  ON  THE  MODE  OF  THE  SPECIFIC  MESSAGE  SWITCH  LINE 

—  AS  DESCRIBED  IN  THE  FOLLOWING: 

—  MANUAL  PARAGRAPH (S) 

—  DCAC  370-D175-1  CHAPTERS  5  AND  11 

—  01/25/81  HF 

procedure  SELECT_INPUT_DATA_TYPE  is 
begin 

if  CHANNEL  MODE  for  THIS  LINE  =  [21415]  then 
RECEIVE  VALID  ASYNCHRONOUS  CHARACTERS; 
elsif  CHANNEL  M(5DE  for  THIS  UlNE  =  [113]  then 
RECEIVE_VALlD_SYNCHRONOUS_CHARACTERS; 
else 

DATABASE  INITIALIZATION  ERROR; 
end  if; 

end  SELECT_INPUT  DATATYPE; 


—A3 12  RECEIVE  VALID  ASYNCHRONOUS  CHARACTERS 
—REV  BAAA 
—2/4/82  PD 

procedure  RECEIVE  VALID  ASYNCHRONOUS_CHARACTERS  is 
type  PTY  is  (EVEN,0DD7; 

PARITY  :  PTY; 

type  BIT  is  (LOW, HIGH); 

BIT_SEQ  :  array(0..7)  of  BIT; 
pragma  PACK(BIT); 

CLOCK  CYCLE  :  DURATION; 

FRAMlflG^ERROR  :  BOOLEAN; 
begin 

—  ASSUMES  CLOCK  RATE  IS  16  TIMES  BAUD  RATE 

—  FOR  TIMING  PURPOSES  ASSUMES  THAT  INSTRUCTIONS  EXECUTE  IN 

—  ZERO  TIME 

—  FOR  IMPLEMENTATION,  DELAYS  MUST  BE  ADJUSTED  FOR 

—  INSTRUCTION  EXECUTION  TIMES 

loop 

while  ASYNCH  BIT_STREAM  /=  LOW  loop 
delay  1.0  ▼  CLOCK_CYCLE; 
end  loop; 

delay  24.0  »  CLOCK_CYCLE; 

BIT  SEQ  :=  (0..7  =>  LOW); 

PARITY  :s  EVEN; 

for  I  in  reverse  8-LEVEL.. 7  loop 
BIT  SEQ(I)  :=  ASYNCH  BIT  STREAM; 
if  BIT  SEQ(I)  s  HIGH  then 
if  PlRITY  s  EVEN  then 
PARITY  :=  ODD; 
else 

PARITY  :s  EVEN; 
end  if; 
end  if; 

delay  16.0  *  CLOCK_CYCLE; 
end  loop; 

FRAMING_ERROR  :=  FALSE; 

I  :=  1; 
loop 

if  ASYNCH_BIT_STREAM  =  LOW  then 
FRAMING_ERROR  :=  TRUE; 
end  if; 

I  :s  I  +  1; 

delay  8.0  *  CLOCK_CYCLE; 
exit  when  I  >  NO  STOP  BITS; 
delay  8.0  *  CLOCl_CYCrE; 
end  loop; 

ASYNCH_CHAR  :=  UNCHECKED_C0NVERSI0N(BIT_SEQ(1 . .7) ) ; 
STROBE_ASYNCH_CHAR ; 
end  loop; 

end  RECEIVE_VALID  ASYNCHRONOUS  CHARACTERS; 


—  A3 1 3  RECEIVE_VALID_SYNCHRONOUS  CHARACTERS 

—  THE  PURPOSE  OF  THIS  ROUTINE  IS~TO  DESCRIBE  THE  REQUIREMENTS 

—  TO  SYNCHRONIZE  AND  CONVERT  A  SERIAL  BIT  STREAM  TO  A  CHARACTER 

—  ORIENTED  FORMAT,  AND  CHECK  FOR  PARITY  ERRORS  AS  DESCRIBED  IN 

—  THE  FOLLOWING: 

MANUAL  PARAGRAPH(S) 

—  DCAC  370-D175-1  CHAPTER  4  AND  5 

02/08/82  HF 

procedure  RECEIVE_VALID_SYNCHRONOUS  CHARACTERS  is 
begin 

—  THIS  REQUIREMENT  IS  SIMILAR  IN  NATURE  TO  A312,  FOR  WHICH  THERE 

—  IS  AN  EXAMPLE.  IT  IS  EXPECTED  THAT  THIS  FUNCTION  WILL  BE 

—  IMPLEMENTED  BY  HARDWARE, 
end  RECEIVE  VALID  SYNCHRONOUS  CHARACTERS; 


A3 14  ANALYZE  ASYNCHRONOUS  PROTOCOL 


—  A3141  ANALYZE  ASYNCH  FRAMING 

—  THE  PURPOSE  OF  THIS  FOUTINE  IS  TO  DESCRIBE  THE  REQUIREMENTS 

—  FOR  ANALYSIS  OF  THE  FRAMING  OF  AN  ASYNCHRONOUS  MESSAGE 

—  RECEIVED  FROM  A  MESSAGE  SWITCH  TERMINAL. 

—  AS  DESCRIBED  IN  THE  FOLLOWING: 

MANUAL  PARAGRAPH(S) 

—  TT-B1-1 101-0001A  AND  DCAC  370-D175-1 ,  PAGE  109  AND  CH.  11 

—  01/31/82  HF 

procedure  ANALYZE_ASYNCH_F RAMING  is 
begin 

if  START__SYSTEM  COMMAND  or  FRAMING_ERROR  then 
GENERATE  CONTROL  CHARS; 

—  USE  RT  RCVD  CffDE  (RT) 

start  of  Control  sequence :=false; 

ASYNCH  STATE :sINTERMESSAGE; 
elsif  STROBE  ASYNCH  CHAR  then 
if  CHANNEL"~MODE  s  5  then 
if  EXPIRED  PAUSE  TIMER  then 

if  PROTOCOL  s  TTA_#2  or  (ASCII  and  CHARACTER_PARITY  = 
EVEN)  then 

if  RECEIVED  CHARACTER  =  [ASYNCH  RECEIVE_CONTROL_CHAR 
i  CANCEL  CHAR  REPLY  CHAR  T  START_CHAR]  then 
START  OF  CONTROL  SEQUENCE: sTRUE ; 

—  CtC  SEQ  IS  EFFECTED  IF  NEXT  CONSECUTIVE 
—  CHARACTER  IS  A  REPEAT  OF  THIS  CHARACTER. 

START  PAUSEJTIMER; 

—  IF  THE  PAUSE  TIMER  EXPIRES  BEFORE  THE  NEXT 
—  CHARACTER  ARRIVES,  THIS  SEQUENCE  STARTS  OVER. 

— >  ACCEPT  CONTROL  CHARACTER 

—  NOT  TO  BE  INTERMIXED  WITH  MESSAGE  CHARACTERS, 
else 

ASYNCH  STATE : sINTERMESSAGE ; 

—  IMPUlES  THAT  CHARACTER  IS  TO  BE  IGNORED, 
end  if; 
else 

ASYNCH_STATE : =INTERMESSAGE ; 
end  if; 
else 

if  START_OF_CONTROL_SEQUENCE  =  TRUE  then 
PROCESS  ASYNCH  CONTROL  SEQ; 
elsif  ASYlCH  STATE  =  INTERMESSAGE  then 
PROCESS  INTERMESSAGE_CHAR; 

START  PAUSE  TIMER; 

elsif  AlYNCH  STATE  =  INTRAMESSAGE  then 
PROCESS  INTRAMESSAGE  CHAR; 
if  CHAR  BUFFER  s  UPPfR  THRESHOLD  then 
GENERATE  CONTROL_CHAFS ; 

—  USE  •FEND_ST0P’  REQUEST  CODE 
end  if; 
end  if; 
end  if; 
else 

if  CHANNEL__MODE  s  2  or  4  then 

if  ASYNCH  STATE  =  INTERMESSAGE  then 
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PROCESS  INTERMESSAGE  CHARACTER; 
elaif  ASYffCH  STATE  =  iffTRAMESSAGE  then 
PROCESS_INTRAMESSAGE_CHAR ; 
end  if; 
end  if; 
end  if; 

elaif  NO  CHARACTERS  RECEIVED  for  LAST  30  MINUTES  then 
GEN  SVC  MSG; 

—  SVC  HESSAGE_TYPE  =  TRAFFIC_CHECK; 
end  if; 

end  ANALYZE  ASYNCH  FRAMING; 


— A3142  PROCESS_INTERMESSAGE  CHAR 
—REQUIRED  BY: JANAP-128  PAGE  3-24  OR  ACP-127  AND 
— TT-B1-1 101-0001A,PAR.  3.2.1.2.10.2.10  PAGE  109 
—  01/31/82  HF 

procedure  PROCESS_INTERMESSAGE_CHAR  is 
begin 

if  PROTOCOL  s  ITA_#2  or  (ASCII  and  CHARACTER_PARITY 
then 

— >  VALIDATE  START  OF  MESSAGE  SEQUENCE  ’ZCZC* 
if  SOM  SEQ  s  VALID  then 

ASYNfti  STATE : =INTRAMESSAGE ; 

UPDATE  JOURNAL; 

—  SEND  SOM_IN  LOG  ENTRY  INFORMATION  CODE 
end  if; 

—  IMPLIES  THAT  ANY  OTHER  TEXT  CHARACTERS  WILL  BE 
end  if; 

end  PROCESS  INTERMESSAGE  CHAR; 


=  EVEN) 


IGNORED. 


EOT 


—  A3 1 43  PROCESS_INTRAMESSAGE  CHAR 

—  THE  PURPOSE  OF  THIS  ROUTINE  IS  TO  DESCRIBE  THE  REQUIREMENTS 

—  FOR  PROCESSING  THE  TEXT  PORTION  OF  AN  ASYNCHRONOUS  MESSAGE 

—  FROM  A  TERMINAL  CONNECTED  TO  THE  MESSAGE  SWITCH. 

—  AS  DESCRIBED  IN  THE  FOLLOWING:  . 

MANUAL  PARAGRAPH(S) 

—  TT-B 1 -1 1 01 -0001 A  AND  DCAC  370-D175-1 , PAGE  109  AND  CHAPTER  11 

—  01/31/82  HF 

procedure  PROCESS_INTRAMESSAGE_CHAR  is 
begin 

if  PROTOCOL  =  ITA_#2  then 

if  CHARACTER  =  LETTERS  CHAR  then 
CHARACTER  CASE: sLETTERS ; 

— >  ACCEPT  CHARACTER 
elsif  CHARACTER  s  FIGS  CHAR  then 
CHARACTERISE :  sFIGS ; 

— >  ACCEPT  CHARACTER 
else 

— >  ACCEPT  CHARACTER 
end  if; 

elsif  PROTOCOL  s  ASCII  then 
if  CHARACTER_PARITY  =  ODD  then 
— >  ACC£PT~CHARACTER 
end  if; 
end  if; 

if  CHARACTER  ACCEPTED  then 

— >  CHECK  FOR  VALID  ’EOM*  SEQUENCE  (LINE  FEED  +  NNNN) 
if  VALID  EOM_SEQUENCE  DETECTED  then 
GENERATE_CONTROL  CHARS; 

—  USE  EOMS  RCVD~CODE 
— >  ACCEPT  MESSAGE 

—  CAN  BE  OVERRIDDEN  BY  VALIDATION  AND  REF  STORAGE. 
UPDATE_JOURNAL ; 

—  SEND  * EOM_IN ’  LOG  ENTRY  INFORMATION  CODE 
end  if; 

if  CHANNEL_MODE  =  5  then 
START_PAUSE_TIMER ; 
end  if; 
else 

ASYNCH_STATE : =INTERMESSAGE ; 
uENERATE_CONTROL_CHARS ; 

--  USE  SEND_RT  MESSAGE  CODE.  THIS  WILL  INITIALLY  CAUSE 
—  STOP  TO  BE  SENT  OUT  FROM  THE  XMITTER,  CAUSING  AN 
—  EVENTUAL  REPLY  TO  BE  RECEIVED.  THEN  RETRANSMIT  MESSAGE 
—  (RT)  WILL  BE  SENT  OUT. 

UPDATE  JOURNAL; 

—  USE  LOG_ENTRY_INFO  =  RE JECT_ENTRY 
end  if; 

end  PROCESS  INTRAMESSAGE  CHAR; 


EOT. . 
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—  A3144  PROCESS_ASYNCH  CONTROL  SEQ 

—  THE  PURPOSE  OF  THIS  ROUTINE  IS  TO  DESCRIBE  THE  REQUIREMENTS 

—  FOR  PROCESSING  A  CONTROL  CHARACTER  SEQUENCE  FOR  A  MODE  5 

—  ASYNCHRONOUS  TERMINAL  CONNECTED  TO  THE  MESSAGE  SWITCH 

—  AS  DESCRIBED  IN  THE  FOLLOWING: 

MANUAL  PARAGRAPH (S) 

—  DCAC  370-D175-1  CHAPTER  11 

—  01/31/82  HF 

procedure  PROCESS_ASYNCH_CONTROL_SEQ  is 
begin 

if  PROTOCOL  =  ITA_#2  or  (ASCII  and  CHARACTER_PARITY  =  EVEN) 
then 

if  CHARACTER  /-  PREVIOUS  CONTROL_CHAR  then 
ASYNCH_STATE : =INTERMESSAGE ; 

—  IMPLIES  THAT  PAUSE  TIMER  WILL  EXPIRE  AND  SEQ  MUST 
—  RESTART. 

elsif  CHARACTER  =  [STOP_CHAR  !  ACK_CHAR  i  RETRANSMIT_CHAR] 
then 

GENERATE_CONTROL_CHARS ; 

—  USE  CODE  REQUIRED  BY  THE  CONTROL  SEQUENCE,  SUCH  AS 
—  STOP_RCVD,  ACK_1_RCVD,  ACK_2_RCVD,  OR  RT_RCVD. 
START_PAUSE_TIMER; 
elsif  CHARACTER  =  CANCEL_CHAR  then 
GENERATE_CONTROL_CHARS ; 

—  USE  CANCEL_RCVD  CODE.  THIS  ALSO  IMPLIES  THAT  ACK 
—  ALTERNATION  SEQUENCE  IS  SET  TO  TRANSMIT  AN 
—  ACK  2  OUT  OF  THE  TRANSMITTER. 

—  IN  XDDITION,  IF  A  STOP  SEQUENCE  IS  IN  PROGRESS,  IT 
—  IS  TO  BE  RESET. 

UPDATE  JOURNAL; 

—  USE~~LOG_ENTRY_INFO  =  CANCEL_REC_ENTRY 
START  PAUSEJTIMER; 
elsif  CHARACTER  =  REPLY  CHAR  then 
GENER ATE_C0NTR0L_CHAR3; 

—  USE  REPLY_RCVD  CODE  (MESSAGE  STATUS  ASSUMED  TO 
—  BE  RT  UNLESS  APPROPRIATELY  ACKED. 

START_PAUSE_TIMER; 
elsif  CHARACTER  /=  START_CHAR  then 
ASYNCd_STATE : sINTERMESSAGE ; 

—  IMPLIES  THAT  CHARACTER  SEQUENCE  IS  TO  BE  IGNORED, 
end  if; 
else 

ASYNCH_STATE : =INTERMESSAGE ; 
end  if; 

START_OF_CONTROL_SEQUENCE : =FALSE ; 
end  PROCESS_ASYNCH__CONTROL  SEQ; 


ANALYZE  SYNCHRONOUS  PROTOCOL 


—  A  3 1 5 1  ANALYZE_BLOCK_FRAMING 

—  THE  PURPOSE  OF  THIS  ROUTINE  IS  TO  DESCRIBE  THE  REQUIREMENTS 
—  TO  ANALYZE  SYNCHRONOUS  PROTOCOL  AFTER  BIT  AND  CHARACTER 
—  SYNCHRONIZATION  HAS  BEEN  PREVIOUSLY  ESTABLISHED. 

—  AS  DESCRIBED  IN  THE  FOLLOWING: 

MANUAL  PARAGRAPH(S) 

—  DCAC  370-D175-1  CHAPTER  5 
—  01/19/82  HF 

procedure  ANALYZE_BLOCK_FRAMING  is 
begin 

if  CHAR_STROBE  then 

if  DATA_SCATE_LATCH  =  TRUE  and  DATA_STATE=FALSE  then 
DATA  STATE :=TRUE; 

CHAR“"COUNT:  =  1 ; 

STARTj)F_CONTROL_SEQUENCE : =FALSE ; 
elsif  DATA_STATE_LATCH  =  FALSE  then 

if  not  PROCESS_BLQCK_FRAMlNG_STATE  and 
SYNCH_DATA_MODE: sBLOCK_BY_BLOCK  then 
DATA_STATE : =F  ALSE ; 
exit; 
end  if; 
exit; 
end  if; 

if  START_OF_CONTROL_SEQUENCE  =  TRUE  then 
PROCESS_SYNCH_CONTROL_SEQ ; 
exit; 
end  if; 

case  CHAR_COUNT  is 
when  1  => 

PROCESS_FIRST_SYNCH_CHAR ; 
when  2  => 

PROCESS_SECOND_SYNCH_CHAR ; 
when  3  . .7.  82  s> 

PROCESS_SYNCH_TEXT ; 

when  83  or  END_OF_MEDIUM_SEQUENCE: =TRUE  s> 
PROCESS_BLOCK_FRAMING ; 
when  84  => 

PROCESS__BLOCK_PARITY ; 
end  case; 
else 

if  NO  CHARACTERS  RECEIVED  for  LAST  30  MINUTES  then 
GEN_SVC_MSG; 

—  SVC  MESSAGE  TYPE : =TRAFFIC_CHECK ; 

—  IMPUlES  RECEIVER  IS  EITHER  OUT  OF  SYNC  OR 
—  RECEIVING  ONLY  SYNC  CHARACTERS, 
end  if; 
end  if; 

end  ANALYZE_BLOCK_FRAMING; 

EOT. . 
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—  A3152  PROCESS  FIRST  SYNCH  CHAR 

—  THE  PURPOSE  OF  THIS  ROUTllE  IS  TO  DESCRIBE  THE  REQUIREMENTS 

—  FOR  PROCESSING  THE  FIRST  CHARACTER  OF  A  SYNCHRONOUS  INPUT 

—  TRUNK  TO  THE  MESSAGE  SWITCH  AS  DESCRIBED  IN  THE  FOLLOWING: 

MANUAL  PARAGRAPH (S) 

—  DCAC  370-D175-1  CHAPTER  5 

—  01/17/82  HF 


procedure  PROCESS_FIRST_SYNCH_CHAR  is 
begin 

if  CHARACTER_PARITY  s  ODD  then 
exit ; 
end  if; 

if  CONTROL_CHARACTER  =  [REQUEST_FOR_ANSWER_CHAR  I 
RECEIVE_CONTROL_CHAR  i  INVALID_CHAR ]  then 
START_OF  CONTROL_SEQUENCE : sTRUE ; 

—  THE  CONTROL  SEQUENCE  IS  EFFECTED  IF  THE  NEXT  CONSECUTIVE 
—  CHARACTER  IS  A  REPEAT  OF  THIS  CONTROL  CHARACTER. 

— >  ACCEPT  CHARACTER 
exit; 
end  if; 

if  SYNCH_DATA_MODE  =  BLOCK_BY  BLOCK  then 

VERIFY  THAT  WE  HAVE  ANSWERED  for  THE  LAST  BLOCK  RECEIVED; 
if  WE  HAVE  not  ANSWERED  then 
exit; 
end  if; 
else 

if  SYNCH_DATA_MODE  =  CONTINUOUS  then 

if  FIRST  CHARACTER  AFTER  BLOCK  PARITY  of  BLOCK  in  ERROR 
then 
exit; 
end  if; 
end  if; 
end  if; 

if  CONTROL_CHARACTER  s  START  OF  HEADER  then 
if  ETX_BP  or  CANCEL  not  LAST  PROCESSED  then 
exit; 
end  if; 

elsif  CONTROL_CHARACTER  s  START_OF_TEXT  then 
if  ETB_BP  not  LAST  CHARACTER  PROCESSED  then 
exit; 
end  if; 
else 
exit ; 
end  if; 

— >  ACCEPT  FIRST  CHARACTER 
UPDATE_JOURNAL; 

—  USE  SOM_IN  ENTRY. 

CHAR_COUNT : =CHAR  COUNT+1 ; 
end  PROCESS_FIRST  SYNCH  CHAR; 


EOT. . 
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—  A3153  PROCESS_SECOND_SYNCH  CHAR 

—  THE  PURPOSE  OF  THIS  ROUTINE  IS  TO  DESCRIBE  THE  REQUIREMENTS 
—  FOR  PROCESSING  THE  SECOND  CHARACTER  OF  A  SYNCHRONOUS  INPUT 
—  TRUNK  TO  THE  MESSAGE  SWITCH  AS  DESCRIBED  IN  THE  FOLLOWING: 

MANUAL  PARAGRAPH(S) 

—  DCAC  370-D175-1  CHAPTER  5  . 

—  01/17/82  HF 

procedure  PROCESS_SECOND_SYNCH_CHAR  is 
begin 

if  CHARACTER  PARITY  =  ODD  then 
CHAR_C0UNTT=1 ; 
exit; 
end  if; 

if  FIRST_CHARACTER  s  START_OF  HEADER_CHAR  then 
if  CONTROL  CHARACTER  =  SELECT_CHAR  then 
— >  ACCENT  SECOND_CHARACTER 
else 

GENERATE  CONTROL_CHARS ; 

—  USE  SfND_RM  CODE 
end  if; 
else 

if  FIRST_CHARACTER  s  START  OF  TEXT_CHAR  then 
if  AUTODIN  INTERSWITCH  TRUNff  then 
if  VALID  SECURITY_CHlRACTER  then 
— >  ACCEPT  SECOND_CHARACTER 
else 

GENERATE_CONTROL  CHARS; 

—  USE  SEND_RM  C(?DE 
end  if; 

elsif  DELETE_CHAR  then 

— >  ACCEPT  SECOND_CHARACTER 
else 

GENERATE  CONTROL  CHARS; 

—  USE  SfND_RM  c$de 
end  if; 
end  if; 
end  if; 

if  SECOND_CHARACTER  ACCEPTED  then 
CHAR_C0UNT:=CHAR_C0UNT+1 ; 

BP_CALC : =SECOND_CHARACTER ; 
end  if; 

end  PROCESS_SECOND_SYNCH_CHAR; 

EOT. . 
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—  A3154  PROCESS  SYNCH  TEXT 

—  THE  PURPOSE  OF  THIS  ROUTINE  IS  TO  DESCRIBE  THE  REQUIREMENTS 

—  FOR  PROCESSING  THE  TEXT  CHARACTERS  OF  A  SYNCHRONOUS  INPUT 

—  TRUNK  TO  THE  MESSAGE  SWITCH  AS  DESCRIBED  IN  THE  FOLLOWING: 

MANUAL  PARAGRAPH (S) 

—  DCAC  370-D175-1  CHAPTER  5 

—  01/18/82  HF 

procedure  PROCESS_SYNCH_TEXT  is 
begin 

if  CHARACTER_PARITY  *  EVEN  then 

if  CONTROL_CHARACTER  =  MODE_CHANGE_CHAR  or 
END  OF  MEDIUM  CHAR  then 
— >  ACCEPT  CHARlCTER 
CHAR  COUNT:=CHAR  COUNT+1 ; 

BLOCHj>ARITY  CALC:=BLOCK_PARITY  CALC  xor  CONTROL_CHAR ; 
if  CONTROL  CHARACTER  =  END_OF  MEDIUM  then 
END_OF_MfDIUM_SEQ:  sTRUE; 
end  if; 

elsif  CONTROL  CHARACTER  =  [RECEIVE_CONTROL  CHAR  i 
INVALID_CHAR]  then 
START  OF  CONTROL_SEQ: sTRUE ; 

—  thE  control  sequence  is  effected  if  the  next 

—  CONSECUTIVE  CHARACTER  IS  IDENTICAL  TO  THIS  ONE. 

— >  ACCEPT  CHARACTER 
else 

CHAR_COUNT :  =  1 ; 

GENERATE  CONTROL  CHARS; 

—  USE  SEND_NAK  EODE  (TO  BE  OUTPUT  ONLY  AFTER  BLOCK 
—  FRAMING,  REPLY,  OR  CANCEL) 
end  if; 

elsif  TEXT_CHARACTER  then 
— >  ACCEPT  CHARACTER 
CHAR_COUNT : sCHAR_C0UNT+1 ; 

BP_CALC:=BP_CALC  xor  TEXT__CHARACTER ; 
end  if; 

end  PROCESS  SYNCH_TEXT; 


—  A3 155  PROCESS_BLOCK  FRAMING 

—  THE  PURPOSE  OF  THIS  ROUTINE  IS  TO  DESCRIBE  THE  REQUIREMENTS 

—  FOR  PROCESSING  THE  BLOCK  FRAMING  CHARACTER  POSITION  OF  A 

—  SYNCHRONOUS  INPUT  TRUNK  TO  THE  MESSAGE  SWITCH 

—  AS  DESCRIBED  IN  THE  FOLLOWING: 

MANUAL  PARAGRAPH (S) 

—  DCAC  370-D175-1  CHAPTER  5 

—  01/19/82  HF 

procedure  PROCESS_BLOCK_FRAMING  is 
begin 

if  CHARACTER_PARITY  =  EVEN  then 

if  CONTROL  CHARACTER  =  ETX  CHAR  or  ETB  CHAR  then 

if  PREVIOUSLY  RECEIVED  BtOCK  HAS  BEEfi  ACKNOWLEDGED  then 
— >  ACCEPT  CHARACTER 
BP_CALC : sBP  CALC  xor  CONTROL  CHAR; 
if  ETX_CHAR  then 

END_OF_MESSAGE_SEQ: sTRUE ; 
end  i?; 
else 

CHAR_COUNT:  =  1 ; 

—  IMPLIES  THAT  TRANSMITTER  IS  NOT  KEEPING  UP. 

~  GOOD  AREA  TO  APPLY  AUTOMATIC  ERROR  DETECTION, 
end  if; 
else 

CHAR_COUNT: =1 ; 

—  IMPLIES  THAT  CHARACTER  WAS  NOT  ACCEPTED;  WAIT  FOR 
—  REPLY  OR  CANCEL, 
end  if; 
else 

CHAR_COUNT:=1 ; 

~  IMPLIES  THAT  CHARACTER  WAS  NOT  ACCEPTED;  WAIT  FOR  REPLY 
—  OR  CANCEL, 
end  if; 

END_OF_MEDIUM_SEQ: sFALSE ; 
end  PROCESS_BLOCK_FRAMING; 


—  A3 1 56  PROCESS  SYNCH  CONTROL  SEQ 

—  THE  PURPOSE  OF  THIS  ROUTINE"lS  TO  DESCRIBE  THE  REQUIREMENTS 

—  FOR  PROCESSING  TWO  CONSECUTIVE  CONTROL  CHARACTERS  RECEIVED 

—  OVER  A  SYNCHRONOUS  INPUT  TRUNK  TO  THE  MESSAGE  SWITCH 

—  AS  DESCRIBED  IN  THE  FOLLOWING: 

MANUAL  PARAGRAPH(S) 

—  DCAC  370-D175-1  CHAPTER  5 

—  01/19/82  HF 

procedure  PROCESS_SYNCH_CONTROL_SEQ  is 
begin 

if  CONTROL_CHARACTER  /s  PREVIOUS  CONTROL_CHARACTER  then 
if  CHAR  COUNT  >  1  then 
GENERlTE  CONTROL  CHARS; 

—  USE  NAK  CODE 
CHAR_COUNT:=1 ; 
end  if; 

elsif  CONTROL  CHARACTER  s  INVALID_CHAR  then 
GENERATE_COHTROL_CHARS ; 

—  USE  INVALIDJtCVD  CODE 

elsif  CONTROL  CHARACTER  s  RECEIVE_CONTROL_CHAR  then 
GENERATE  CONTROL  CHARS; 

—  USE  C(5DE  REQUIRED  BY  CONTROL  CHAR,  SUCH  AS  WBT_RCVD, 

—  NAK_RCVD,  RM  RCVD,  ACK_1  RCVD  OR  ACK_2_RCVD. 
elsif  PROCESSING  SYNCH  TEXT  STATE  then 
GENERATE_CONTR(JL  CHAlS; 

—  USE  INVALID  CHAR  CODE 
CHAR  COUNT: si;" 

—  CHANGES  STATE  TO  PROCESS  FIRST_SYNCH_CHAR 
elsif  CONTROL  CHARACTER  s  REQUEST_F3R  ANSWER_CHAR  then 
GENERATE  CONTROL  CHARS; 

—  USE  CODE  AS  RlQUIRED  BY  CONTROL  CHARACTER,  SUCH  AS 
—  [REPLY  RECEIVED  |  CANCEL  RECEIVED  !  ENQUIRY  RECEIVED] 

—  AND  REFORT  THAT  AN  ANSWER  IS  REQUIRED, 
if  CONTROL  CHARACTER  s  CANCEL_CHAR  then 
UPDATE_J(5URNAL;' 

—  USE  CANCEL_RECEIVED  CODE 
end  if; 
end  if; 

START_OF_CONTROL_SEQUENCE : sFALSE ; 
end  PROCESS_SYNCH  CONTROL_SEQ; 


—  A3157  PROCESS  BLOCK  PARITY 

—  THE  PURPOSE  OF  THIS  ROUTINE  IS  TO  DESCRIBE  THE  REQUIREMENTS 
—  TO  CHECK  THE  BLOCK  PARITY  CHARACTER  OF  A  SYNCHRONOUS 
—  MESSAGE  AND  TAKE  APPROPRIATE  ACTION  BASED  ON  THE  RESULT 
—  AS  DESCRIBED  IN  THE  FOLLOWING: 

MANUAL  PARAGRAPH(S) 

—  DCAC  370-D175-1  CHAPTER  5 
—  01/21/82  HF 

procedure  PROCESS_BLOCK_PARITY  is 
begin 

if  BP_CALC  s  CONTROL  CHAR  then 

if  END  OF  MESSAGE_FEQ  =  TRUE  then 
— >  XCCfPT  CHARACTER 
— >  ACCEPT  MESSAGE 

—  COMMENT  FOR  ACCEPT  BLOCK  ALSO  APPLIES  HERE. 
END_OF_MESSAGE_SEQ: sFALSE; 
else 

— >  ACCEPT  CHARACTER 
— — ^  ACCEPT  BLOCK 

—  CAN  BE  OVERRIDDEN  BY  MESSAGE  VALIDATION  ROUTINES 
—  AND  REFERENCE  STORAGE.  TIME  CONSTRAINTS  EXIST  FOR 
—  A  REPLY,  AS  WELL  AS  SYNCHRONIZATION  OF  THE  PROCESSES, 
end  if; 

CHAR  COUNT: si ; 

GENEFATE_CONTROL_CHARS ; 

—  USE  EOMS_RCVD  CODE 
UPDATE_JOURNAL; 

—  USE  EOM_IN  CODE 
else 

CHAR_COUNT:s1 ; 

GENERATE  CONTROL  CHARS; 

—  use  sFnd_rm  cSde 

—  WAIT  FOR  REPLY  OR  CANCEL, 
end  if; 

end  PROCESS_BLOCK_PARITY; 

EOT. . 
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PREPROCESS  ASYNCH  MESSAGE 


— A31 61  DECIDE  CHECK  SEQUENCE 
—REV  BAAAA 
— 2/2/82  PD 

procedure  DECIDE__CHECK_SEQUENCE  is 
begin 

if  PRECEDENCE  =  CWiYIZ]  then 
if  CHANNEL_MODE  s  [2 i 4]  then 
ECSN  :  =  ECSN  +  1; 
end  if; 

COMPLETE  TI; 

elsif  CHANNEL  MODE  =  C 2 !  4 ]  then 
CHECK  MODE_Il_IV  CSN; 
elsif  CHANNEL  MODE- s  5  then 
CHECK_MODE_V_CSN; 
end  if; 

end  DECIDE  CHECK  SEQUENCE; 


— A3162  CHECK  MODE  II  IV  CSN 
—PARA  3.2.1.2.10.2.10  B  (2) 

—REV  BAAAA 
— 2/3/82  PD 

procedure  CHECK_MODE_II_IV_CSN  is 
begin 

if  ICSN(1..3)  not  in  digits  then 

GENERATE_CONTROL  CHARATER ( RE JECT  MESSAGE, MESSAGE_ID ) ; 
GENERATE  SERVICE“MESSAGE  (SERVICE  MESSAGE  INFO  => 
(INCORRECT  C^N , MESSAGE  ID)); 

ECSN  :=  ECSN  +  1; 
elsif  ICSN  /=  ECSN  then 

GENERATE_CONTROL__CHAR  ACTE  R(  RE  JECT  MESSAGE ,  MESSAGE_ID ) ; 
GENERATE  SERVICE  MESSAGE (SERVICE_MESSAGE  INFO  => 

( INC(5RRECT_CSN ,  MESSAGE_ID ) ) ; 

ECSN  :=  ICSN  +  1; 
else 

if  LAST  GOOD_CSN  +  1  /s  ICSN  then 

GENERATE  SERVICE_MESSAGE(SERVICE_MESSAGE_INFO  => 
(0PEJT_CSN ,  MESSAGE_ID ,  ,  LAST_GOOD_CSN ,  ICSN ) ) ; 
end  if; 

LAST_GOOD_CSN  :s  ICSN; 

ECSN  :=  ICSN  +  1; 
end  if; 

end  CHECK  MODE  II_IV  CSN; 


EOT. . 


I 


— A31 63  CHECK  MODE  V  CSN 
—PARA  3.2.1.2.10.2.10  B  (2) 

—REV  BAAAA 
—2/2/82  PD 

procedure  CHECK_MODE_V_CSN  is 
begin 

if  ICSN(1..3)  not  in  digits  then 

GENERATE  CONTROL  CHARACTER ( RE JECT  MESSAGE,  MESSAGE_ID); 
GENERATE_SERVICE_MESSAGE (SERVICE_MESSAGE_INFO  s> 
<INCORRECT_CSN,  MESSAGE  ID)); 

LAST  CSN_REJ  :s  FALSE; 

elsif  ICSN  /=  ECSN  and  ( (LAST_CSN_REJ  and  ICSN  /=  IRCSN)  or 
not  LAST  CSN  REJ)  then 

GENERATE  CENTRAL  CHARACTER (RE JECT_MESSAGE , MESSAGE_ID) ; 
GENERATE_SERVICE  MESSAGE (SERVICE_MESSAGE_INFO  => 
(INCORRECT_CSN, MESSAGE  ID)); 

LAST  CSN_REJ  :s  TRUE; 

IRCSlT  :s  ICSN; 

6  X  S6 

if  LAST  GOOD  CSN  +1  /=  ICSN  then 

GENERATE_SfRVICE_MESSAGE( SERVICE  MESSAGE_INFO  s> 
(OPEN_CSN,MESSAGE_ID, ,  LAST_^OOD_CSN , ICSN ) ) ; 
end  if; 

LAST_CSN_REJ  :=  FALSE; 

LAST_GOOD_CSN  :s  ICSN; 
end  if; 

end  CHECK_MODE_V_CSN; 


EOT 


— A3164  CHECK  ICD 
—PARA  3.2.1.2.10.2.10  A 
—REV  BAAAA 
— 2/3/82  PD 

procedure  CHECK_ICD  is 
begin 

if  ICD  /=  CHNL  DES  then 

GENERATE_CONTROL_CHARACTER(  RE JECT_MESSAGE, MESSAGE  ID); 
GENERATE_SERVICE_MESSAGE(SERVICE_MESSAGE_INFO  => 
INVALID_HEADER_REJ ,MESSAGE_ID) ) ; 
end  if; 

end  CHECK_ICD; 


EOT. . 


■ 

B 


A5 
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— A3 1 65  COMPLETE  TI 
--PARA  3.2.1.2.10.2.10  C 
—REV  BAAAA 
—2/2/82  PD 

procedure  COMPLETE_TI  is 
begin 

— >  TI  LINE  MUST  NOT  EXCEED  79  CHARACTERS 
— >  STARTING  WITH  ICD  AND  ENDING  WITH  FIRST  LF 
— >  TI  LINE  MUST  END  IN  LOWER  CASE  IF  ITA 
— >MINIMUM  END  OF  LINE  IS  ONE  LF 
if  ANY  of  ABOVE  not  MET  then 

GENERATE  SERVICE_MESSAGE(SERVICE_MESSAGE_INFO  => 
(INVALID_HEADER_REJ,MESSAGE_ID)  ); 

GENERATE  CONTROL_CHARACTER (REJECT_MESSAGE ,MESSAGE_ID) ; 
— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE 
end  if; 

end  COMPLETE  TI; 


EOT. . 


\ 
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— A3166  DETECT  CANTRAN 
—PARA  3.2.1.2712 
—REV  BAAAA 
—2/2/82  PD 

procedure  DETECT_CANTRAN  is 
begin 

if  AC?  127  or  ( JANAP_128  and  FIRST  LMF_CHARACTER  /=  [S|C|B!D 
il7  then 

START  :=  INDEX  of  EOM  SEQUENCE;  — LF  NNNN 

FINI  :=  START  -  23; 
for  I  in  reverse  FINI.. START  loop 
exit  when  MESSAGE (I)  =  •#'; 
if  MESSAGE (I. .1+3)  =  "E  E  AR«  then 
— >  MAKE  CANTRAN_REC  LOG  ENTRY 
— >  DISCARD  MESSAGE 
— >  NOTIFY  OPERATOR 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE 
exit; 
end  if; 
end  loop; 
end  if; 

end  DETECT_CANTRAN ; 
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—  A32  GENERATE  ASYNCH  CTL_CHARS 

—  THE  PURPOSE  OF  THIS  ROUTINE  IS  TO  DESCRIBE  THE  REQUIREMENTS 

—  FOR  INTERFACING  MESSAGE  CONTROL  SEQUENCES  FROM  THE  RECEIVERS, 

—  VALIDATOR,  AND  REFERENCE  STORAGE  TO  THE  TRANSMITTER  AS 

—  DESCRIBED  IN  THE  FOLLOWING: 

—  MANUAL  PARAGRAPH(S) 

—  DCAC  370-D175-1  CHAPTER  11 

—  02/04/82  HF 

procedure  GENERATE_ASYNCH_CTL_CHARS  is 
begin 

if  REPLYJTIMER  (2-4  SECONDS)  =  EXPIRED  then 
if  MESSAGE_STATUS  =  CANCEL_SEQ  then 
CONTROL  CODE : sCANCEL  SENT; 
elsif  MES3AGE_STATUS:=REPLY_SEQ  then 
CONTROL_CODE : =REPLY_SENT ; 
else 

raise  exception; 
end  if; 
end  if; 

if  STOP_TIMER  (2-8  SECONDS)  =  EXPIRED  then 
CONTROL_CODE : =SEND_ST0P ; 
end  if; 

case  CONTROL_CODE  is 
when  SEND_RT  =  > 

SEND_ACKNOWLEDGEMENT_RESPONSE ; 

—  TRANSMIT  STOP_CODE 
START_STOP_TIMER ; 

—  EXPECT  REPLY  SEQUENCE 
MESSAGE_STATUS : =RT ; 
when  SEND_ST0P  s> 

if  CHAR_BUFFER  <  LOWER_THRESHOLD  then 
if  MESSAGE_STATUS  =  RT  then 
SEND  ACKNOWLEDGEMENT_RESPONSE; 

—  TRANSMIT  RT_CODE 
ME3SAGE_STATUS :  =NOT_STOP_SEQ.; 
elsif  MESSAGE  STATUS  =  OK  then 
SEND_ACKNOWUEDGEMENT_RESPONSE ; 

—  TRANSMIT  ACK_SEQ_REPLY  (ACK_1  OR  ACK_2) 

—  ALTERNATE  ACK_SEQ_REPLY 
elsif  MESSAGE_STATUS  =  INCOMPLETE  then 
SEND  ACKNOWLEDGEMENT_RESPONSE; 

—  TRANSMIT  STOP  CODE 
MESSAGE_STATUS : =ST0P_SEQ; 

— >  CHECK  FOR  THIRD  STOP  TRANSMITTED  AND  NOTIFY 
—  OPERATOR  IF  SO. 

else 

raise  exception; 
end  if; 
else 

SEND_ACKNOWLEDGEMENT_RESPONSE ; 

—  TRANSMIT  STOP_CODE 
MESSAGE_STATUS : =ST0P_SEQ ; 
if  THIRD  STOP  TRANSMITTED  then 
— >  NOTIFY  OPERATOR 
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end  if; 

when  ACK_SEND  => 

SEND  ACKNOWLEDGEMENT^ RESPONSE ; 

—  TlANSMIT  ACK_SEQ_REPLY  (TWO  ACK_1  OR  ACK_2  CHARACTERS 

—  ALTERNATING 

—  BETWEEN  MESSAGE  TRANSMISSIONS. 

'  ACK_SEQ_REPLY : sALTERNATE  of  ACK_1  or  ACK  2; 
when  CANCEL  RCVD  => 

ACK  SEQ  X?TD:=ACK_2; 

SENU_ACl?NOWLEDGEMENT  RESPONSE; 

—  STOP  MESSAGE  TRANSMISSION  (IF  ANY) 

RESET_STOP_TIMER  (if  SET); 

— >  SEND  PARTIALLY  RECEIVED  MESSAGE  TO  REFERENCE  STORAGE 
— >  AND  CLEAN  UP  FOR  NEXT  MESSAGE, 
when  REPLY_RCVD  => 

if  MESSAGE_STATUS  =  STOPPED  then 
SEND_ACKNOWLEDGEMENT_RESPONSE ; 

—  TRANSMIT  STOP  CODE 
if  THIRD  STOP  TRANSMITTED  then 
— >  NOTIFY  OPERATOR 
elsif  MESSAGE_STATUS  =  RT  then 
SEND_ACKNOWLEDGEMENT_RESPONSE ; 

—  TRANSMIT  RT  CODE 
elsif  MESSAGE_STATUS  =  OK  then 
SEND_ACKNOWLEDGEMENT_RESPONSE ; 

—  TRANSMIT  ACK  SEQ  REPLY 
ACK_SEQ_REPLY:=ALTEANATE  of  ACK_SEQ_REPLY; 
end  if; 
end  if; 

when  RT_RCVD  => 

SEND_ACKNOWLEDGEMENT  RESPONSE; 

—  STOP  MESSAGE  TRANSMISSION 
ACK_SEQ_XPTD: =ACK_2 ; 

— >  PREPARE  MESSAGE  FOR  RETRANSMISSION  AND  WAIT 
MESSAGE_STATUS:=EOMS  NOT_OUTSTANDING  and  NOT_REPLY_SEQ; 
when  STOP_RCVD  => 

if  MESSAGE_STATUS  =  CANCEL_SEQ  then 
CONTROL_CODE : =CANCEL_SENT ; 
end  if; 

SEND_ACKNOWLEDGEMENT  RESPONSE; 

—  STOP  MESSAGE  TRANSMISSION 
START  STOPJTIMER; 

when  EOMS_CODE_SENT  => 

START  REPLY_TIMER; 

REPEAT_COUNTER : =REPEAT_COUNTER+1 ; 

MESSAGE_STATUS : =EOMS  OUTSTANDING ; 
when  EOMS_CODE  RCVD  => 

if  CHARACTER_B UFFER  >  UPPER  THRESHOLD  then 
SEND_ACKNOWLEDGEMENT_RESPONSE ; 

—  TRANSMIT  STOP  CODE 
STOP_SEQ:=TRUE; 
else 

if  MESSAGE  STATUS  s  COMPLETE  then 
if  MESSAGE  STATUS  =  RT  then 


SEND_ACKNOWLEDGEMENT_RESPONSE ; 

—  TRANSMIT  RT_CODE 
elsif  MESSAGE_STATUS  =  OK  then 
SEND  ACKNOWLEDGEMENT_RESPONSE; 

~  TRANSMIT  ACK_SEQ_REPLY  (ACK_1  OR  ACK_2) 
else 

raise  exception; 
end  if; 

MESSAGE_STATUS : =EOMS_RCVD ; 
end  if; 
end  if; 

when  REPLY_SENT  => 

START  REPLY  TIMER; 

REPEAT_COUNTER : =REPEAT_C0UNTER+1 ; 
SEND_ACKNOWLEDGEMENT_RESPONSE ; 

—  TRANSMIT  REPLY_CODE 
MESSAGE_STATUS:=REPLY_SEQ; 
when  ACK_1_RCVD  => 

REPEAT_COUNTER:=0; 

RESET  REPLY  TIMER; 

if  ACK  SEQ  lPTD:=  ACK  1  RCVD  then 

— >  Continue  message  Transmission 

else 

SEND_ACKNOWLEDGEMENT_RESPONSE; 

—  CANCEL  MESSAGE 
— >  PREPARE  TO  RETRANSMIT 
end  if; 

ACK_SEQ_XPTD : =ACK_2 ; 

MESSAGE_STATUS:sEOMS_NOT_OUTSTANDING  and  NOT_REPLY_SEQ; 
when  ACK_2_RCVD  => 

REPEAT_COUNTER:=0; 

RESET  REPLY_TIMER; 
if  ACK_SEQ_XPTD  s  ACK  2  RCVD  then 
— >  CONTINUE  MESSAGE  TRANSMISSION 
else 

SEND  ACKNOWLEDGEMENT_RESPONSE; 

—  ClNCEL  MESSAGE 
— >  PREPARE  TO  RETRANSMIT 
end  if; 

ACK  SEQ  XPTD: =ACK  1* 

MESSAGE“STATUS:=E(JMS_NOT_OUTSTANDING  and  NOT_CANCEL_SEQ 
and  NOT_REPLY  SEQ; 
when  CANCEL_SENT  => 

if  MESSAGE_STATUS  =  EOMS_NOT_OUTSTANDING  then 
MESSAGE_STATUS : =CANCEL_SEQ ; 

ACK_SEQ_REPLY : =ACK_2 ; 

SEND_ACKNOWLEDGEMENT_RESPONSE; 

—  TRANSMIT  CANCEL_CODE 
if  REPEAT_COUNTER  =  3  then 
— >  SET  OPERATOR  ALARM 
end  if; 
else 

MESSAGE  STATUS: =REPLY  SEQ; 

SEND  ACENOWLEDGEMENTJTESPONSEj 
—  TRANSMIT  REPLY  CODE 


end  if; 

START  REPLY  TIMER; 
REPEAT_COUNlER : =REPEAT_COUNTER 
end  case; 

end  GENERATE_ASYNCH_CTL_CHARS ; 


Service  Message  Info 


VALIDATE  MESSAGE 


—  A331  ROUTE  TO  VALIDATION 

—  PARA  3. 2. 1.2. 4. 2. 2. 2 

—  REV  BAAA 

—  12/16/81  PD 

procedure  ROUTEJTO_VALIDATION  is 
begin 

if  JANAP_128  then 

if  PRECEDENCE  =  CW i Y { Z 3  then 
VALIDAJE_HIPREC_JANAP_128; 

0  £0 

VALIDATE_JANAP_1 28; 
end  if; 

else  —  ACP-127 

if  DOUBLE  PRECEDENCE_PROSIGN ( 1 )  =  [YiZ]  or 
D0UBLl_PRECEDENCE_PR0SIGN(2)  s  [YiZ]  or 
A  (GARBLED)  BELL  SIGNAL  IS  PRESENT  then 
VALIDATE_HIPREC_ACP_1 27 ; 

6 1 SG 

VALIDATE_ACP_127; 
end  if; 
end  if; 

end  ROUTE  TO  VALIDATION; 


Service  Message  Info 


VALIDATE  JANAP  128 


— A3321  CHECK  128  HEADER 

—PARA  3.2.1.2.10.1,  3.2.1.2.10.2,  3. 2. 1.2. 8. 4 
—REV  BAAAB 
—2/3/82  PD 

procedure  CHECK_128_HEADER  is 
begin 

if  PRECEDENCE  /=  [OlPiR]  then 
raise  INVALID_HEADER_REJ ; 
end  if; 

if  LMF  PAIR  not  LEGAL  then 

— LE(jAL  PAIRS  ARE  LISTED  IN  THE  DATA  DICTIONARY 
raise  INVALID_HEADER_REJ; 
end  if; 

if  CLASS  /=  CMIAIT ISlCIRIEiU]  then 
raise  INVALID_SCTY_FIELD; 
end  if; 

if  CLASS  >s  LINE_DATA.SECURITY_PROSIGN  then 

GENERATE_CONTROL_CHARACTER(REJECT_MESSAGE,MESSAGE_ID); 
GENERATE_SERVICE__MESSAGE  (SERVICE_MESSAGE_INFO  => 
(SCTY_MISMATCH, MESSAGE  ID)); 

— >  TERMINATE  PROCESSING  0¥  THIS  MESSAGE 
end  if; 

if  not  SINGLE_CARD  then 

if  REDUNDANT  CLASS(1..4)  /s  CLASS  then 
raise  INVALID_SCTY_FIELD ; 
end  if; 
end  if; 

if  CIC  CAK1..3)  not  in  LETTER  or  CIC  CAI(4)  not  in  [LETTER 
I  DIGIT]  then 

raise  INVALID_HEADER_REJ; 
end  if; 

if  0SRK1..7)  not  in  LETTER  then 
raise  INVALID_HEADER_REJ; 
end  if; 

if  OSSN ( 1 . . 4 )  not  in  DIGIT  then 
raise  INVALID_HEADER_REJ; 
end  if; 

if  DATE_TIME  (1..7)  not  in  DIGIT  then 
raise  INVALID_HEADER_REJ ; 
end  if; 

— >  CHECK  SENTINELS  AND  SIGNALS 
— >  BLANKS  IN  POS  9  &  21 

— >  IN  POS  28  (33  IF  REC0RD_C0UNT  PRESENT) 

— >  »  — •  IN  POS  33  (38  IF  REC0RD_C0UNT  PRESENT) 

— >  IF  ANY  ARE  BAD  RAISE  INVALID_HEADER_RE J ; 
exception 

when  INVALID_HEADER_REJ  => 

CALL  GENERATE  SERVICE  MESSAGE (  SERVICE_MESSAGE_INFO  => 
(INVALID_HEADER  RfJ,  MESSAGE_ID) ) ; 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL  MODE  s  [1133  then 

CALL  GENfRATE  CONTROL  CHARACTER ( RE JECT  MESSAGE , MESSAGE  ID 

); 

end  if; 
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when  INVALID_SCTY  FIELD  s> 

CALL  GENERATE  SERVICE  MESSAGED (SERVICE  MESSAGE  INFO  s> 
(INVALID_5CTY_FIEUD,  MESSAGE_ID));“ 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL  MODE  s  C 1  I  3  3  then 

call  genErate_control_charactercreject_message,message_id 

)  i 

end  if; 

end  CHECK_128  HEADER; 


/ 


— A3322  A3343  CHECK  RECORD  COUNT 
—PARA  3. 2. 1.2. 10.177 
—REV  BAAAA 
—  1/13/82  PD 

procedure  CHECK_RECORD_COUNT  is 
begin 

if  RECORD_COUNT  /=  [ "MTMS" i "PLTS" 3  then 
if  RECORD  COUNT ( 1 )  in  LETTERS  then 
if  RECORD  COUNT  /*  VALID  RI  then 
raise  lffVALID_HEADER_REJ; 
end  if; 

elsif  RECORD_COUNT ( 1 )  in  digits  then 

if  RECORD  COUNT (2 . . 4 )  not  in  digits  then 
raise  lfVALID_HEADERJl£J; 
end  if; 

if  RECORD  COUNT  <3  or  RECORD_COUNT>500  then 
raise  lffVALID_HEADER_REJ; 
end  if;  ~ 

else 

raise  INVALID_HEADER_REJ ; 
end  if; 
end  if; 
exception 

when  INVALID_HEADER_REJ  *> 

CALL  GENERATE_SERVICE_MESSAGE (SERVICE_MESSAGE  INFO  s> 
(INVALID  HEADER  REJ,  MESSAGE  ID)); 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL_MODE  s  C 1  i  3  ]  then 

CALL  GENERATE_CONTROL_CHARACTER(REJECT_MESSAGE,MESSAGE_ID) 
end  if; 

end  CHECK_RECORD_COUNT; 


— A3323  A3332  A3344  A3352  CHECK_RIS 
—PARA  3.2.1.2.10.8 
—REV  BAAAA 
—  1/6/82  PD 

procedure  CHECK_RIS  is 
begin 
loop 

— >  FIND  NEXT  RI 

if  A  DELIMITER  OTHER  THAN  ['B'|CR|LF]  is  FOUND  then 
raise  INVALID_RI_FIELD ; 
end  if; 

exit  when  END  0F_R0UTING  is  FOUND; 

—  END  OF  ROUTING  IS  ».*  FOR  JANAP-128 
—  AND  CR  CR  LF  Z  OR  CR  CR  LF  D  FOR  ACP-127 
if  RI(1.. 4)  not  in  LETTER  then 
raise  INVALID_RI_FIELD; 
end  if; 

if  RIO. .4)  =  OUR  RI  then 

— >  CHECK  ENTIRE  RI  FOR  VALIDITY 
elsif  RK3..4)  s  "CR"  then 

— >  CHECK  RI  FOR  VALID  COLLECTIVE  RI 
else 

— >  CHECK  RIO..)  FOR  VALID  RELAY  RI 
end  if; 

if  RI  GOOD  then 

— >  ADD  RI  TO  VALID_RI_LIST 
else 

— >  ADD  RI  TO  INVALID_RI_LIST 
end  if; 
end  loop; 

if  VALID_RI_LIST  is  EMPTY  then 
raise  ALL  RI_INVALID; 
elsif  INVALID  RI_LIST  not  EMPTY  then 
raise  INVALlD_RI; 
end  if; 

if  ACP-127  and  END_0F_R0UTING  =  CR  CR  LF  Z  then 

— >  RETURN  TO  CHECK_1 27_HEADER  (THIS  LINE  WAS  A  PILOT) 
end  if; 
exception 

when  INVALID_RI  FIELD  => 

CALL  GENERATE_SERVICE_MESSAGE(SERVICE_MESSAGE_INFO  => 
(INVALID_RI_FIELD ,MESSAGE_ID ) ) ; 

— >  TERMINATE  MESSAGE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL_MODE  =  [1133  then 

GENERATE_CONTROL_CHARACTER ( RE JECT_MESSAGE , MESSAGE_ID) ; 
end  if; 

when  ALL  RI  INVALID  => 

CALL  GENERATE  SERVICE  MESSAGE (SERVICE_MESSAGE  INFO  => 
(ALL  RI  lTTVALID,MESSAGE_ID,INVALID_RI_LIST)); 

— >  TERMINATE  MESSAGE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL_MODE  =  [1133  then 

GENERATE_CONTROL_CHARACTER ( RE JECT_MESSAGE , MESSAGE_ID) ; 
end  if; 

when  INVALID  RI  => 
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CALL  GENERATE  SERVICE_MESSAGE (SERVICE  MESSAGE_INFO  => 
(INVALID_RI,MESSAGE_ID, INVALID  RI  LIST)); 
if  PRECEDENCE  =  C  * W • i * Y • S • Z • 3  then 
CIC  CAI (4)  :s  ’W’; 
end  i7; 

end  CHECK  RIS; 


— A3324  A3334  A3345  A3354  CHECK  EOM 

—PARA  3.2. 1 .2.4.2. 1 . 16,  3-2.1.2.10.2.9,  3.2. 1.2.10.2.10  B(2) 
—REV  BAAAA 
—  1/7/82  PD 

procedure  CHECK_EOM  is 
begin 

if  OSSN  /=  E0M_VALIDATI0N(2. .5)  then 
—  USE  ACP_SSN  FOR  ACP-127 

CALL  GENERATE_SERVICE_MESSAGE (SERVICE  MESSAGE_INFO  => 
(SUSPECTED_STRAGGLER,  MESSAGE_ID )T; 
if  PRECEDENCE  =  [WiYlZ]  then 
CIC_CAI (4 )  :=  *W' ; 
else 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL_MODE  =  [1133  then 

GENERATE_CONTROL_CHARACTER(REJECT_MESSAGE,MESSAGE_ID) 
end  if; 
end  if; 

elsif  EOM_SEQ  DOES  not  CONTAIN  LF  &  "NNNN"  then 

CALL  GENERATE  SERVICE_MESSAGE  (SERVICE  MESSAGE  INFO  => 
(INVALID_fOM  REJ,MESSAGE_ID) ) ; 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL_MODE  =  [1133  then 

GENERATE_CONTROL_CHARACTER(REJECT_MESSAGE,MESSAGE_ID) ; 
end  if; 
end  if; 

if  PRECEDENCE  =  [ • W» i • Y ' ! »Z ' 3  then 

CALL  GENERATE_SERVICE_MESSAGE (SERVICE_MESSAGE_INFO  s> 
(HIGH_PRECEDENCE_ACCEPTANCE , MESSAGE_ID ) ) ; 
end  if; 

if  CHANNEL_MODE  =  5  then 
ECSN  :=  ECSN  +  1 ; 
end  if; 

end  CHECK_EOM; 

EOT. . 
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— A3325  A3346  CHECK  EOT 

—PARA  3.2.1.2.4.2.1.16,  3.2.1.2.10.1.10,  3.2.1.2.10.2.10  B  (2) 
—REV  BAAAA 
—  1/13/82  PD 

procedure  CHECK_EOT  is 
begin 

if  not  SINGLE_CARD  then 

if  E0T_CARD . OSSN  /=  ACP_SSN  then 

CALL  GENERATE_SERVICE_MESSAGE (SERVICE  MESSAGE  INFO  => 
(SUSPECTED_STRAGGLER,  MESSAGE  ID)7; 
if  PRECEDENCE  =  [XiYJZ]  then 
CIC_CAI (4 )  :=  »W'; 
else 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL_MODE  =  [113]  then 

GENERATE_CONTROL_CHARACTER(REJECT_MESSAGE,MESSAGE_ID) 

9 

end  if; 
end  if; 
end  if; 

if  JANAP_FMT_LN_2.REC0RD_C0UNT  =  "PLTS"  then 

if  EOT_CARD.RECORD_COUNT  <  3  or  E0T_CARD. RECORD_COUNT  > 
500  then 

CALL  GENERATE_SERVICE_MESSAGE  (SERVICE_MESSAGE  INFO  s> 
(INVALID_EOM_REJ ,  MESSAGE_ID) ) ; 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE; 
if  CHANNEL_MODE  =  [113]  then 

GENERATE _CONTROLj:HARACTER ( RE JECT_MESSAGE , MESSAGE_ID ) 

I 

end  if; 
end  if; 

elsif  JANAP_FMT_LN_2. RECORD  COUNT  =  "MTMS”  then 
if  EOT  CARD. RECORD_COUNT  7=  "MTMS"  and 

EOT_CARD.RECORD_COUNT  /=  ACTUAL_RECORD_COUNT  then 
—  THIS  IMPLIES  YOU  MUST  COUNT  THE  ACTUAL  NUMBER  OF 
—  RECORDS 

CALL  GENERATE_SERVICE_MESSAGE(SERVICE_MESSAGE_INFO  => 
(INVALID  EOM_REJ,  MESSAGE__ID) ) ; 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL_MODE  =  C 1  !  3  3  then 

GENERATE_CONTROL_CHARACTER ( RE JECT_MESSAGE , MESSAGE_ID) 

9 

end  if; 
end  if; 
si  s@ 

if  EOT_CARD.RECORD_COUNT  /-  ACTUAL_RECORD_COUNT  then 
CALL  GENERATE_SERVICE_MESSAGE  (SERVICE_MESSAGE_INFO  => 
(INVALID_fOM  REJ,  MESSAGE_ID ) ) ; 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL_MODE  =  C 1 1 3 3  then 

GENERATE_CONTROL_CHARACTER ( RE JECT_MESSAGE , MESSAGE_ID ) 

9 

end  if; 
end  if; 
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else 

if  SINGLE_CARD(80)  /=  *N*  then 

CALL  GENERATE_SERVICE_MESSAGE  (SERVICE  MESSAGE  INFO  r> 
(INVALID_EOM_REJ,  MESSAGE_ID) ) ; 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL_MODE  =  [1133  then 

GENERATE_CONTROL_CHARACTER ( RE JECT_MESSAGE , MESSAGE_ID) 
end  if; 
end  if; 
end  if; 

if  PRECEDENCE  =  [ • W • 1 * Y ’ i • Z • ]  then 

CALL  GENERATE_SERVICE_MESSAGE(SERVICE_MESSAGE_INFO  => 
(HIGH_PRECEDENCE_ACCEPTANCE,MESSAGE_ID) ) ; 
end  if; 

if  CHANNEL_MODE  :=  5  then 
ECSN  :=  ECSN  +  1; 
end  if; 

end  CHECK  EOT; 


VALIDATE  ACP-I27 


—  A3331  CHECK  127  HEADER 

—  PARA  3.2.1.2.10.3 
--  REV  BAAAA 

—  1/7/82  PD 

procedure  CHECK_127_HEADER  is 
begin 

if  DOUBLE_PRECEDENCE_PROSIGN  /=  ["00"|"PP"  i"RR”]  then 
DOUBLE_PRECEDENCE_PROSIGN  :r  "00"; 
end  if; 

if  ACP_FMT_LN_2(3)  /=  *b'  then 

CALL  GENERATED  SERVICE  MESSAGE  (SERVICE  MESSAGE  INFO  => 
(INVALID_H£ADER_RE7,MESSAGE_ID)); 

— >  TERMINATE  PROCESSING  FOR  THIS  MESSAGE 
if  CHANNEL_MODE  =  [1133  then 

GENERATE_CONTROL_CHARACTER (RE JECT_MESSAGE , MESSAGE_ID ) ; 
end  if; 
end  if; 

end  CHECK  127  HEADER; 


— A3323  A3332  A3344  A3352  CHECK_RIS 
—PARA  3.2.1.2.10.8 
—REV  BAAAA 
—  1/6/82  PD 

procedure  CHECK_RIS  is 
begin 
loop 

— >  FIND  NEXT  RI 

if  A  DELIMITER  OTHER  THAN  E'B'iCRiLF]  is  FOUND  then 
raise  INVALID  RI  FIELD; 
end  if;  — 

exit  when  END  OF  ROUTING  is  FOUND; 

—  END  OF  ROUTINE  I§  ’ . •  FOR  JANAP-128 
—  AND  CR- CR  LF  Z  OR  M  CR  LF  D  FOR  ACP-127 
if  RIO.. 4)  not  in  LETTER  then 
raise  INVALIDJtI_FIELD; 
end  if; 

if  RI(1.. 4)  s  OUR  RI  then 

— >  CHECK  ENTIRE  RI  FOR  VALIDITY 
elsif  RIC3..4)  =  "CR"  then 

— >  CHECK  RI  FOR  VALID  COLLECTIVE  RI 
else 

— >  CHECK  RI(1..)  FOR  VALID  RELAY  RI 
end  if; 

if  RI  GOOD  then 

— >  ADD  RI  TO  VALID_RI_LIST 
else 

— >  ADD  RI  TO  INVALIDJII_LIST 
end  if;  - 

end  loop; 

if  VALID  RI  LIST  is  EMPTY  then 
raise  ILL  RI  INVALID; 
elsif  INVALID  El  LIST  not  EMPTY  then 
raise  INVALID  El; 
end  if; 

if  ACP-127  and  END  OF  ROUTING  *  CR  CR  LF  Z  then 

— >  RETURN  TO  CHECK_1 27_HEADER  (THIS  LINE  WAS  A  PILOT) 
end  if; 
exception 

when  INVALID_RI  FIELD  => 

CALL  GENERATE-SERVICE_MESSAGE(SERVICE_MESSAGE_INFO  s> 
(INVALID  RI  FIELD, MESSAGE  ID)); 

— >  TERMINATE  MESSAGE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL  MODE  *  [1133  then 

GENERATE- CONTROL_CHARACTER ( RE JECT_MESSAGE , MESSAGE_ID ) ; 
end  if; 

when  ALL  RI  INVALID  -> 

CALL  GENEEATE  SERVICE  MESSAGE (SERVICE  MESSAGE  INFO  s> 
(ALL  RI  INVALID, MESSAGE  ID, INVALID  RI_LISl>); 

— >  TERMINATE  MESSAGE  PROCEESING  ON  THIS  MESSAGE 
if  CHANNEL  MODE  *  [1133  then 

GENERATE_CONTROL_CHARACTER ( RE JECT_MESSAGE , MESSAGE_ID ) ; 
end  if; 

when  INVALID  RI  *> 


CALL  GENERATE  SERVICE  MESSAGE (SERVICE_MESSAGE_INFO  s> 
(INVALID  ffl,MESSASE_ID,INVALID_RI_LIST)); 
if  PRECEDENCE  *  [ 'W* I ’Y ' 1 *2' ]  then 
CIC  CAI (4)  :*  *W' ; 
end  i7; 

end  CHECK  RIS; 


—  A3333  COMPLETE  127  HEADER 

—  PARA  3*2.1.2.10.3,  3. 2. 1.2. 8. 4 

—  REV  BAAAA 

—  1/13/82  PD 

'procedure  COMPLETE__1 27_HEADER  is 
begin  v 

if  ACP  SSN  PRECEDED  BY  then 
.  — >  DETAIN  FOR  EOM  CHECK 
end  if; 

_ FMT  LN  4 

if  0P”SICNAL  /=  [ WZNYN { MZNRn ]  or  CLASS  X5  /*  ["MMMMM" 1 "AAAAA" 
jT5-TTTTX.t ;  **SSSSSW  i  "CCCCC"i"RRRRR"i'jrEEEEE"!"UUUUU"]  then 
CALL  GENERATE  SERVICE  MESSAGE  (SERVICE  MESSAGE  INFO  => 
(INVALID  SCTY  FIEED, MESSAGE  ID));  “ 

— >  TERMINATE  PROCESSING  FOR  THIS  MESSAGE 
if  CHANNEL_MODE  =  [1133  then 

GENERATE_CONTROL_CHARACTER(REJECT_MESSAGE,MESSAGE_ID) ; 
end  if; 
end  if; 

if  CLASS  >=  LINE  DATA. SECURITY  PROSIGN  then 

GENERATE_CONTROL_CHARACTER  (lEJECT_MESSAGE,MESSAGE_ID) ; 
GENERATE  SERVICE  MESSAGE (SERVICE_MESSAGE_INFO  =  > 

(SCTY  MISMATCH ,MESSAGE_ID)); 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE 
end  if; 

end  COMPLETE^ 27_HEADER; 


EOT. . 


— A3324  A3334  A3345  A3354  CHECK  EOM 

—PARA  3.2.1.2.4.2.1.16,  3.2.1.2.10.2.9,  3.2.1.2.10.2.10  B(2) 
—REV  BAAAA 
—1/7/82  PD 

procedure  CHECK_EOM  is 
begin 

if  OSSN  /=  EOM  VALIDATION (2. .5)  then 
—  USE  ACP  S3N  FOR  ACP-127 

CALL  GENERlTE  SERVICE  MESSAGE (SERVICE  MESSAGE_INFO  *> 
(SUSPECTED  STRAGGUER,  MESSAGE_ID)I; 
if  PRECEDENCE  s  [WiYlZ]  then 
CIC_CAI(4)  := 
else 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL  MODE  =  C 1 S 33  then 

GENERATE”CONTROL_CHARACTER ( RE JECT_MESSAGE , MESSAGE_ID ) ; 
end  if; 
end  if; 

elsif  EOM_SEQ  DOES  not  CONTAIN  LF  &  "NNNN"  then- 

CALL  GENERATE  SERVICE__MESSAGE  (SERVICE_MESSAGE_INFO  s> 
(INVALID  IOM  REJ, MESSAGE  ID)); 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL  MODE  =  C 1 i 33  then 

GENERATE  CONTROL  CHARACTER ( RE JECT_MESSAGE, MESSAGE_ID ) ; 
end  if; 
end  if; 

if  PRECEDENCE  =  [ 'W* i ' Y * ! *Z • 3  then 

CALL  GENERATE  SERVICE  MESSAGE (SERVICE_MESSAGE_INFO  => 

(HIGH  PRECEDENCE  ACCEPTANCE, MESSAGE_ID) ) ; 
end  if; 

if  CHANNEL  MODE  s  5  then 
ECSN  :  =  ECSN  ♦  1; 
end  if; 

end  CHECK_EOM; 
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— A331*!  CHECK  LMF 
— PARA  3.2. 1 .2.4.2. 1 .3 
—REV  BAAAA 
—  1/13/82  PD 


procedure  CHECK_LMF  Is 
begin 

case  FIRST_LMF_CHARACTER  is 
when  ’  A '  => 

if  SELECT  CHARACTER  =  ['H’i'S']  then 
LMF_0K  :=  TRUE; 
else 

LMF  OK  :=  FALSE; 
end  i7; 

when  *3  * i *D • ! *  I  *  *> 

if  SELECT_CHARACTER  =  C'B’i’C’]  then 
LMF_OK  :=  TRUE; 
else 

LMF  OK  :s  FALSE; 
end  iT; 

when  ’C'l’S*  s> 

if  SELECT  CHARACTER  =  C'D’I'F’]  then 
LMF_OK  : =  TRUE; 
else 

LMF  OK  :=  FALSE; 
end  i7; 

when  *F  * | ’Q' i • R  » I 'T»  => 

if  SELECT  CHARACTER  =  ’A'  then 
LMF_OK  :s  TRUE; 
else 

LMF  OK  :=  FALSE; 
end  i7; 

when  others  => 

LMF_OK  :s  FALSE; 
end  case; 

if  not  LMF  OK  then 

case  SELfCT  CHARACTER  is 


when  A  => 

FIRST_LMF_CHARACTER 
when  *  B  * i ' C  »  => 


rp » 


FIRST_LMF_CHARACTER  :=  'B' 
when  'D ' i ’F 1  => 

FIRST_LMF_CHARACTER  :=  »C’ 
when  ’H'  i  'S'  => 


FIRST  LMF  CHARACTER 


end  case; 

CIC  CAI (4)  :=  • W * ; 
end  i7; 


’A’ 


— >  CHECK  FOR  LEGAL  LMF  PAIR  (LEGAL  PAIRS  ARE  LISTED  IN  THE 
—  DATA  DICTIONARY) 
if  not  LEGAL  PAIR  then 

if  FIRST_LMF_CHARACTER  =  [ 'R * i 'Q' ! 'F » ]  then 
SECOND  LMF_CHARACTER  :=  'T'; 
elsif  FIRST_LMF_CHARACTER  s  ’S'  then 
SECOND  LMF_CHARACTER  :=  ’C’; 


70 


else 

SECOND_LMF_CHARACTER  :=  FIRST_LMF_CHARACTER ; 
end  if; 

CIC__CAI (4 )  :  =  'W'; 
end  if; 

end  CHECK_LMF; 

EOT.. 


It 


B 
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— A3342  CHECK  HP  128  HEADER 
—PARA  3. 2. 1.2. 4. 2.1,  3-2. 1.2. 8. 4 
—REV  BAAAA 
—  1/13/82  PD 

procedure  CHECK_HP_128_HEAD£R  is 
begin 

— >  SECURITY  FIELD  3  OUT  OF  5  CHECK 

— >  3  OF  THE  5  SECURITY  CHARACTERS  MUST  BE  CORRECT  AND  MATCH 
— >  ELSE  GENERATE  INVALID_SCTY  FIELD  SERVICE  MESSAGE  AND 
— >  TERMINATE  AND  REJECT  MESSAGE 

if  CLASS  (MATCHING  3)  >  =  LINE  DATA. SECURITY  PROSIGN  then 
GENERATE_CONTROL_CHARACTER (ffE JECT_MESSAGE , MESSAGE_ID ) ; 
GENERATE  SERVICE  MESSAGE (  SERVICE_MESSAGE_INFO  r> 

(SCTY  MISMATCH, MESSAGE  ID)); 

— >  TERMINATE  PROCESSING  OTT  THIS  MESSAGE 
end  if; 

if  OSRK1..4)  s  OUR_RI  then 

— >  CHECK  ENTIRE  RI  FOR  VALID  TRIBUTARY 
if  not  VALID  then 

CALL  GENERATE  SERVICE  MESSAGE (SERVICE  MESSAGE  INFO  => 
(INVALID  HEADER_REJ,MESSAGE_ID)) ;“ 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL_MODE  =  [1133  then 

GENERATE_CONTROL_CHARACTER ( RE JECT_MESSAGE , MESSAGE_ID ) ; 
end  if; 
end  if; 
else 

— >  CHECK  0SRK1..4)  FOR  VALID  RELAY 
if  not  VALID  tl en 

CALL  GENERATE_SERVICE  MESSAGE (SERVICE_MESSAGE_INFO  => 
(INVALID_HEADER_REJ,  MESSAGE_ID) ) ; 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL_MODE  =  C 1 ! 3  3  then 

GENERATE_CONTROL_CHARACTER(REJECT_MESSAGE,MESSAGE_ID) ; 
end  if; 
end  if; 
end  if; 

— >  CHECK  OSSN  FOR  EMBEDDED  SPACES  OR  HYPHENS 
if  FOUND  then 

CALL  GENERATE_SERVICE  MESSAGE (SERVICE_MESSAGE_INFO  => 
(INVALID_HEADER_RlJ,  MESSAGE_ID)) ; 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL_MODE  =  [1133  then 

GENERATE_CONTROL_CHARACTER ( RE JECT_MESSAGE , MESSAGE_ID) ; 
end  if; 
end  if; 

— >  CHECK  SENTENALS  &  SIGNALS 
— >  BLANKS  IN  >OS  9  &  21 

— >  IN  POS  28  (33  IF  RECORD  COUNT  PRESENT) 

— >  »  — '  IN  POS  33  (38  IF  RECORD_COUNT  PRESENT) 

— >  GENERATE  INVALID  HEADER  REJ  IF  ANY  ARE  BAD 
— >  TERMINATE  AND  REJECT  MESSAGE 
end  CHECK  HP  128  HEADER; 


— A3322  A33^3  CHECK  RECORD  COUNT 
—PARA  3.2.1.2.10.177 
—REV  BAAAA 
—1/13/82  PD 

procedure  CHECK_RECORD_COUNT  is 
begin 

if  RECORD  COUNT  /=  ["MTMS" ! "PLTS"]  then 
if  RECORD  COUNT ( 1 )  in  LETTERS  then 
if  RECOlfD  COUNT  /s  VALID  RI  then 
raise  INVALID  HEADER  RlJ; 
end  if; 

elsif  RECORD__COUNT ( 1 )  in  digits  then 

if  RECORD  C0UNT(2. .4)  not  in  digits  then 
raise  INVALID  HEADER  REJ; 
end  if;  ” 

if  RECORD  COUNT  <3  or  RECORD  C0UNT>500  then 
raise  INVALID  HEADER  REJ; 
end  if;  ” 

else 

raise  INVALID  HEADER  REJ; 
end  if; 
end  if; 
exception 

when  INVALID  HEADER  REJ  => 

CALL  GENERXTE_SER7lCE  MESSAGE (SERVICE  MESSAGE  INFO  => 

(INVALID  HEADER  RlJ,  MESSAGE_ID> ) ; 

— >  TER^NATf  PROCESSING  ON  THIS  MESSAGE 
if  CHANNE-  MODE  s  C 1 { 3  3  then 

CALL  GENf R ATE _CONTROL_CHARACTER ( RE JECT_MESS AGE , MESS AGE_ID ) ; 
end  if; 

end  CHECK_RECORD__COUNT ; 


— A3323  A 33 32  A3344  A3352  CHECK  RIS 
—PARA  3.2.1.2.10.8 
—REV  BAAAA 
—  1/6/82  PD 

procedure  CHECK_RIS  is 
begin 
loop 

— >  FIND  NEXT  RI 

if  A  DELIMITER  OTHER  THAN  ['B'1CR|LF3  is  FOUND  then 
raise  INVALID  RI  FIELD; 
end  if; 

exit  when  END  OF_ROUTING  is  FOUND; 

—  END_OF_ROUllNG  IS  FOR  JANAP-128 
—  AND  CR  CR  LF  Z  OR  CR  CR  LF  D  FOR  ACP-127 
if  RI(1.. 4)  not  in  LETTER  then 
raise  INVALID^ RI_FIELD ; 
end  if; 

if  RI(1.. 4)  =  OUR  RI  then 

— >  CHECK  ENTIRl  RI  FOR  VALIDITY 
elsif  RI (3. • 4)  =  "CR"  then 

— >  CHECK  RI  FOR  VALID  COLLECTIVE  RI 
else 

— >  CHECK  RI(1..)  FOR  VALID  RELAY  RI 
end  if; 

if  RI  GOOD  then 

— >  ADD  RI  TO  VALID_RI_LIST 
else 

— >  ADD  RI  TO  INVALID^ RI_LIST 
end  if; 
end  loop; 

if  VALID_RI_LIST  is  EMPTY  then 
raise  ALL  RI  INVALID; 
elsif  INVALID  1ST  LIST  not  EMPTY  then 
raise  INVALlD_lTl; 
end  if; 

if  ACP-127  and  END  OF_ROUTING  =  CR  CR  LF  Z  then 

— >  RETURN  TO  CHlCK_1 27__HEADER  (THIS  LINE  WAS  A  PILOT) 
end  if; 
exception 

when  INVALID_RI  FIELD  => 

CALL  GENERATE_SERVICE_MESSAGE(SERVICE_MESSAGE_INFO  => 
(INVALID  RI  FIELD , MESSAGE_ID ) ) ; 

— >  TERMINATE  MESSAGE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL  MODE  s  [1133  then 

GENERATE”CONTROL_CHARACTER(REJECT_MESSAGE,MESSAGE_ID) 
end  if; 

when  ALL  RI  INVALID  s> 

CALL  GlNElfATE  SER VICE_MESSAGE ( SERVICE_MESSAGE  INFO  => 
(ALL  RI  ifiVA  ID, MESSAGE  ID,  INVALID  RI  LIST)); 

— >  TERMINATE  MESSAGE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL_MODE  s  [1133  then 

GENERATE_CONTROL_CHARACTER ( RE JECT_MESSAGE , MESSAGE_ID ) 
end  if; 

when  INVALID  RI  s> 


CALL  GENERATE  SERVICE  MESSAGE (SERVICE  MESSAGE  INFO  s> 
(INVALID  Ifl,  MESSAGE  ID,  INVALID  RI  LIST)); 
if  PRECEDENT  =  [  ’W'  i  'Y '  i  *Z  '  3  then-  - 
CIC_CAI (4 )  :=  'W»; 
end  if; 

end  CHECK__RIS; 


— A3324  A3334  A3345  A3354  CHECK  EOM 

—PARA  3.2.1.2.4.2.1.16,  3-2.1.2.10.2.9,  3.2.1.2.10.2.10  B(2) 
—REV  BAAAA 
—1/7/82  PD 

procedure  CHECK_EOM  is 
begin 

if  OSSN  /=  E0M_VALIDATI0N(2. .5)  then 
—  USE  ACP  SSN  FOR  ACP-127 

CALL  GENERXTE_SERVICE  MESSAGE (SERVi.CE  MESSAGE_INFO  => 
(SUSPECTED  STRAGGLER,  MESSAGE_ID)T; 
if  PRECEDENCE  s  [W! Y !Z]  then 
CIC_CAI(4)  :s  ’W'; 
else 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL  MODE  =  C 1 ! 33  then 

GENERATE_CONTROL_CHARACTER ( RE JECT_MESSAGE , MESSAGE_ID ) 
end  if; 
end  if; 

elsif  EOM  SEQ  DOES  not  CONTAIN  LF  &  "NNNN"  then 

CALL  GENERATE  SERVICE_MESSAGE  (SERVICE_MESSAGE_INFO  s> 
(INVALID_EOM_REJ,MESSAGE_ID)) ; 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL  MODE  s  [1133  then 

GENERATE_CONTROL_CHAR ACTER ( RE JECT_MESSAGE , MESSAGE_ID ) ; 
end  if; 
end  if; 

if  PRECEDENCE  *  C  * W • ! * Y  * { * Z  *  3  then 

CALL  GENERATE_SERVICE_MESSAGE(SERVICE_MESSAGE_INFO  s> 
(HIGH_PRECEDENCE_ACC£PTANCE , MESSAGE_ID ) ) ; 
end  if; 

if  CHANNEL_MODE  =  5  then 
ECSN  :=  ECSN  +  1; 
end  if; 

end  CHECK  EOM; 


EOT 


— A3325  A3346  CHECK  EOT 

—PARA  3.2.1.2.4.2.1.16,  3.2.1.2.10.1.10,  3-2.1.2.10.2.10  B  (2) 
—REV  BAAAA 
—  1/13/82  PD 

procedure  CHECK_EOT  is 
begin 

if  not  SINGLE_CARD  then 

if  E0T__CARD. OSSN  /=  ACP_SSN  then 

CALL  GENERATE_SERVICE  MESSAGE (SERVICE  MESSAGE  INFO  s> 
(SUSPECTED_STRAGGrER,  MESSAGE  ID)7; 
if  PRECEDENCE  =  [X|YiZ3  then 
CIC_CAI (4)  :=  »W‘; 
else 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL_MODE  =  Cl ! 3 3  then 

GENERATE_CONTROL _CHARACTER ( RE JECT_MESSAGE , MESSAGE_ID) 

9 

end  if; 
end  if; 
end  if; 

if  JANAP_FMT  LN  2. RECORD  COUNT  s  "PLTS"  then 

if  EOT  CARE.REC0RD_C0UET  <  3  or  EOT_CARD. RECORD  COUNT  > 
500  then 

CALL  GENERATE_SERVICE  MESSAGE  (SERVICE  MESSAGE  INFO  s> 
(INVALID  EOM_REJ,“MESSAGE_ID)); 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE; 
if  CHANNEL_MODE  s  C 1 1 33  then 

GENERATE_CONTROL__ CHARACTER  ( RE  JECT_MESSAGE ,  MESSAGE_ID) 

9 

end  if; 
end  if; 

elsif  JANAP  FMT_LN_2. RECORD  COUNT  s  "MTMS"  then 
if  EOT  CAlfD.RECORD_COUNT  7=  "MTMS"  and 

EOT  CARD . RECORr_COUNT  /s  ACTUAL  RECORD_COUNT  then 
—  THIS  IMPLIES  YOU  MUST  COUNT  THE  ACTUAL  NUMBER  OF 
—  RECORDS 

CALL  GENERATE_SERVICE  MESSAGE (SERVICE_MESSAGE  INFO  => 
(INVALID  EOM  REJ, “MESSAGE  ID)); 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL  MODE  =  [1133  then 

GENERATE_CONTROL__CHARACTER ( RE JECT_MESSAGE , MESSAGE_ID ) 
J 

end  if; 
end  if; 
else 

if  E0T_CARD. RECORD  COUNT  /=  ACTUAL  RECORD  COUNT  then 
CALL  GENERATE  SERVICE  MESSAGE  (SERVICE  MESSAGE  INFO  => 
(INVALID  E0M_REJ ,  MESSAGE_ID) ) ; 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE  = 
if  CHANNEL  MODE  =  [1133  then 

GENERATE “CONTROL_CHARACTER ( RE JECT_MESSAGE , MESSAGE_ID) 
*  • 

end  if; 
end  if; 
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else 

if  SINGLE  CARD(80)  /=  ‘N»  then 

CALL  GENERATE  SERVICE  MESSAGE  (SERVICE  MESSAGE  INFO  => 
(INVALID  liOM_REJ,  MESSAGE  ID))r 
— >  TERMINATE  PROCESSING  ON  TllS  MESSAGE 
if  CHANNEL_MODE  =  [1133  then 

GENERATE_CONTROL  CHARACTER (REJECT  MESSAGE , MESSAGE  ID) 
end  if; 
end  if; 
end  if; 

if  PRECEDENCE  *  [ 'W* i »Y* i ’Z • ]  then 

CALL  GENERATE  SERVICE_MESSAGE (SERVICE  MESSAGE  INFO  => 
(HIGH_PRE£EDENCE_ACCEPTANCE,MESSA(jE_ID)  ) ; 
end  if; 

if  CHANNEL  MODE  :*  5  then 
ECSN  :=  ICSN  1; 
end  if; 

end  CHECK_EOT; 


— A335 1  CHECK  HP  127  HEADER 
—PARA  3.2. 1 .2. 4. 2. 2 
—REV  BAAAA 
—  1/14/82  PD 

procedure  CHECK_HP_127_HEADER  is 
begin 

if  BELL  SIGNAL  (or  GARBLED  BELL  SIGNAL)  is  PRESENT  then 
— >  SEARCH  FIRST  18  CHARACTERS  FOR  'b' 
if  not  FOUND  then 

CALL  GENERATE_SERVICE_MESSAGE( SERVICE  MESSAGE  INFO  => 
(INVALID_HEADER_REJ,  MESSAGE_ID ) ) ; 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL_MODE  =  [1133  then 

GENERATE_CONTROL_CHARACTER ( RE JECT_MESSAGE , MESSAGE_ID ) 
end  if; 
end  if; 

els if  ACP_FMT_LN_2(3)  /=  »b'  then 

CALL  GENERATE  SERVICE_MESSAGE (SERVICE  MESSAGE_INFO  => 
(INVALID  I?EADER_REJ,  MESSAGE_ID ) ) ; 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL_MODE  =  [1133  then 

GENERATE_CONTROL_CHARACTER(REJECT_MESSAGE,MESSAGE_ID); 
end  if; 

end  if; 

end  CHECK_HP_127_HEADER; 


--A3323  A3332  A3344  A3352  CHECK  RIS 
—PARA  3.2.1.2.10.8 
—REV  BAAAA 
—1/6/82  PD 

procedure  CHECK_RIS  is 
begin 
loop 

— >  FIND  NEXT  RI 

if  A  DELIMITER  OTHER  THAN  ['B'iCRiLF]  is  FOUND  then 
raise  INVALID_RI_FIELD ; 
end  if; 

exit  when  END  OF  ROUTING  is  FOUND; 

—  END  OF  ROUTINE  IS  • . •  FOR  JANAP-128 
—  AND  CR"CR  LF  Z  JR  CR  CR  LF  D  FOR  ACP-127 
if  RI(1.. 4)  not  in  LETTER  then 
raise  INVALID  RI  FIELD; 
end  if; 

if  RI(1.. 4)  s  OUR  RI  then 

— >  CHECK  ENTIRE  RI  FOR  VALIDITY 
elsif  RK3-.4)  =  "CR"  then 

— >  CHECK  RI  FOR  VALID  COLLECTIVE  RI 
else 

— >  CHECK  RI(1..)  FOR  VALID  RELAY  RI 
end  if; 

if  RI  GOOD  then 

— >  ADD  RI  TO  VALID_RI_LIST 
else 

— >  ADD  RI  TO  INVALID_RI_LIST 
end  if; 
end  loop; 

if  VALID_RI_LIST  is  EMPTY  then 
raise  ALL"RI  INVALID; 
elsif  INVALID  El  LIST  not  EMPTY  then 
raise  INVALlDjfl; 
end  if; 

if  ACP-127  and  END  OF  ROUTING  =  CR  CR  LF  Z  then 

— >  RETURN  TO  CHECK_1 27_HEADER  (THIS  LINE  WAS  A  PILOT) 
end  if; 
exception 

when  INVALID_RI  FIELD  s> 

CALL  GENERATE_SERVICE_MESSAGE (SERVICE_MESSAGE_INFO  => 
(INVALID  RI  FIELD, MESSAGE  ID)); 

— >  TERMINATE  MESSAGE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL  MODE  s  C 1 J 33  then 

GENERATE“CONTROL_CHARACTER  (RE  JECT_MESSAGE , MESSAGE__ID ) ; 
end  if; 

when  ALL  RI  INVALID  => 

CALL  GENEEATE  SERVICE_MESSAGE (SERVICE  MESSAGE  INFO  => 
(ALL  RI  IEVALID,MESSAGE_ID,INVALIE  RI_LIST)); 

— >  TERMINATE  MESSAGE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL  MODE  =  [1133  then 

GENERATE_CONTROL_CHARACTER (RE JECT_MESSAGE , MESSAGE_ID ) ; 
end  if; 

when  INVALID  RI  s> 
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CALL  GENERATE  SERVICE_MESSAGE (SERVICE  MESSAGE  INFO  s> 
(INVALID  ET ,MESSAGE_ID, INVALID  RI  LIST)); 
if  PRECEDENCE  =  C  *W» 1  * Y ' i * Z  * ]  then 
CIC_CAI (4 )  :=  *W’ ; 
end  if; 

end  CHECKJtlS; 

EOT.. 
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— A3353  COMPLETE  HP  127  HEADER 
—PARA  3.2. 1 .2. 4. 2. 2,  3-2. 1.2. 8. 4 
—REV  BAAAA 
—  1/14/82  PD 

procedure  COMPLETE_HP_127_HEADER  is 
begin 

if  ACP  SSN  PRECEDED  BY  then 

— >  Detain  for  straggler  check 

end  if; 

— >  MAKE  3  OF  5  CHECK  ON  CLASS_X5 

— >  3  OUT  OF  THE  5  CLASS  CHARACTERS  MUST  BE  CORRECT  AND  AGREE 
— >  TO  ESTABLISH  THE  CLASSIFICATION  OF  THE  MESSAGE 
— >  IF  THIS  CHECK  FAILS,  GENERATE  AN  INVALID_SCTY_FIELD ' SVC 
— >  MESSAGE,  TERMINATE  AND  REJECT  THE  MESSAGE 
if  (CLASS  =  *U’  and  OP  SIGNAL  /=  "ZNR")  or  (CLASS  /=  'U*  and 
OP_SIGNAL  /-  "ZNY"7  then 

CALL  GENERATE_SERVICE_MESSAGE (SERVICE_MESSAGE  INFO  => 
(INVALID_SCTY_FIELD ,  MESSAGE_ID) ) ; 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL_MODE  =  [1133  then 

GENERATE_CONTROL_CHARACTER ( RE JECT__MESSAGE , MESSAGE_ID ) ; 
end  if; 
end  if; 

if  CLASS  >=  LINE_DATA.SECURITY_PROSIGN  then 

GENERATE_CONTROL_CHARACTER  (REJECT_MESSAGE , MESSAGE  ID); 
GENERATE_SERVICE_MESSAGE (SERVICE  MESSAGE_INFO  => 
(SCTY_MISMATCH, MESSAGE_ID) ) ; 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE 
end  if; 

end  COMPLETE_HP_127_HEADER ; 


— A3324  A3334  A3345  A3354  CHECK  EOM 

—PARA  3.2.1.2.4.2.1.16,  3.2.1.2.10.2.9,  3.2.1.2.10.2.10  B(2) 
—REV  BAAAA 
—  1/7/82  PD 

procedure  CHECK_EOM  is 
begin 

if  OSSN  /*  E0M_VALIDATI0N(2. .5)  then 
—  USEACP  SSN  FOR  ACP-127 

CALL  GENERATE_SERVICE_MESSAGE (SERVICE  MESSAGE_INFO  r> 
(SUSPECTED  STRAGGLER,  MESSAGE_ID)7; 
if  PRECEDENCE  *  [WIYIZ3  then 
CIC_CAI(4)  :s  »W»; 
else 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL  MODE  =  C 1 J 33  then 

GENERATE  CONTROL_CHARACTER(REJECT_MESSAGE ,MESSAGE_ID) 
end  if; 
end  if; 

elsif  EOM  SEQ  DOES  not  CONTAIN  LF  &  "NNNN"  then 

CALL  GENERATE  SERVICE_MESSAGE  (SERVICE_MESSAGE_INFO  s> 
(INVALID  fOM  REJ, MESSAGE  ID)); 

— >  TERMINATE  PROCESSING  ON  THIS  MESSAGE 
if  CHANNEL  MODE  *  [1133  then 

GENERATE_CONTROL_CHARACTER (RE JECT_MESSAGE , MESSAGE_ID ) ; 
end  if; 
end  if; 

if  PRECEDENCE  *  ( *W' ! *Y * ! *Z  *  3  then 

CALL  GENERATE_SERVICE_MESSAGE(SERVICE_MESSAGE_INFO  => 
(HIGH_PRECEDENCE_ACCEPTANCE , MESSAGE_ID ) ) ;" 
end  if;  —  ~  ~ 

if  CHANNEL  MODE  s  5  then 
ECSN  :*  fCSN  +  1; 
end  if; 

end  CHECK_EOM; 


BUILD/MODIFY  MCB 


--A341  CHECK  FOR  MCB 
— REV  BAAA 
— 12/14/81  PD 

procedure  CHECK_FOR__MCB  is 
begin 

if  MCB_R£CE I VED  then 
MODIFY_MCB; 
elsif  JANAP_1 28  then 
BUI LD_J  ANA  P_MC  B ; 
else  —  AC P_1 27 
BUI LD_ACP  MCB; 
end  if; 

end  CHECK  FOR  MCB; 


—  A 342  BUILD  JANAP  MCB 
— DC AC-3 7 0-D 17 5-1  TABLE  8-1 
— REV  BAAA 
— 12/14/3 1  PD 


procedure  BUI LD_JANAP_MCB  is 
beg  in 

LMF_PAIR  :=  LMF_PAIR  (FROM  HEADER); 
CIC_CAI  :*  CIC_CAI  (FROM  HEADER); 

OSRI  :=  OSRI  (FROM  HEADER); 

OSSN  :=  OSSN  (FROM  HEADER); 

DATE_TIME  :=  DATE_TIME  (FROM  HEADER); 
if  MODE  *  2  or  MODE  *  4  or  MODE  =  5  then 
— >  ADD  ICD 
— >  ADD  ICSN 
else 

ICD  :=  ' bbb' ; 

ICSN  :=  1 bbbb' ; 
end  if; 

end  BUI LD_J ANAP_MCB ; 

EOT.  . 


9 


8-1 


— A343  BUILD  ACP  MCB 
— DCAC-370-D175-1  TABLE 
—REV  BAAA 
— 12/14/8 l  PD 

procedure  BUI LD_ACP_MCB  is 
begin 

LMF__P  AIR  :=  FT; 

CICJZAl  :=  ZYUW; 

OSRI  :=  HOME_RELAY  (?)  &  ICD; 
OSSN  ;=  '0'  &  ICSN ; 

DATE_TIME  ;=  SOM  IN  DATE  TIME 
ICD  :=  ' bbb' ; 

ICSN  ;=  ' bbbb' ; 
end  BUI LD_ACP  MCB ; 


E 

0 


— A344  MODIFY  MCB 

— PARA  3. 2. I. 2. 13.1, DCAC-370 -D 175- l  TABLE  8-1 
—REV  BAAA 
— 12/14/81  PD 

procedure  MOD  I FY_MCB  is 
type  CT  is  0 . .2; 

COUNT  :  CT; 
beg  in 

COUNT  ;*  0; 

for  all  CHARACTERS  in  TDW  loop 
if  CHARACTER  =  SWITCH_ID  then 
COUNT  :=  COUNT  +  1; 
end  if; 
end  loop; 
case  COUNT  is 
when  0  => 

— >  ADD  SWITCH  ID  TO  FIRST  ZERO  FIELD 
when  1  => 

—  ZERO  ALL  FIELDS  AFTER  POSITION  OF  SWlfCH__ID 
— >  ADD  SWITCH_ID  SECOND  TIME 
when  2  => 

— >  HOLD  MESSAGE 

— >  NOTIFY  OPERATOR  (PROVIDE  ORBIT  INFORMATION) 
end  case; 

BP  :=  MAC ( 1 ) ; 
for  I  in  2. .83  loop 
BP  :=  BP  xor  MCB(I) ; 
end  loop; 

— >  ADD  SOH_TIME 
end  MODIFY  MCB; 


ft 
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— A345  COMPLETE  MCB 
— DCAC-370-D175-1  TABLE  8-1 
— REV  BAAA 
— 12/14/81  PD 

procedure  COMPLETE_MCB  is 
begin 

—  >  PICK  S E LECT_C HARACTE R  BASED  ON  LMF 
PRECEDENCE  PRECEDENCE  (FROM  HEADER); 
CLASS  :=  CLASS  (FROM  HEADER); 

NUMB ER_B LOCKS  :=  NUMBER  of  BLOCKS  RECEIVED; 
— >  ADD  SOH_TIME  • 
if  COLLECTIVE  RIS  in  HEADER  then 
TRIP  -  'C'; 
else 

TRIP  *  'N'; 
end  if; 

if  SERVICE  MESSAGE  then 
SDC  :=*  'S'; 

elsif  PRECEDENCE  *  W  then 
—  CRITIC 

if  COLLECTIVE  RIS  in  HEADER  then 
if  MESSAGE  COMPLETE  then 
SDC  :=  ' M ' ; 
else 

SDC  :=  'I'; 
end  if; 
else 

—  NO  COLLECTIVE  RIS 
if  MESSAGE  COMPLETE  then 
SDC  s~  'C'; 
else 

SDC  :=  'P'; 
end  if; 
end  if; 
else 

SDC  :»  'b' ; 
end  if; 

TDW  :*  (1 .  .12  *>  0); 

OASC  :=  SWITCH_ID; 
if  SERVICE  MESSAGE  then 

SMRI  RI(2..<5)  (FROM  HEADER); 

else 

SMRI  :«  * bbbbb' ; 
end  if; 

SDO  'b' ; 

TASC  :*  ' b' ; 

SASC  ‘b1; 

BP  :»  MCB ( 1 )  ; 
for  I  in  2. .83  loop 
BP  :»  BP  xor  MCB (I) ; 
end  loop; 
end  COMPLETE  MCB; 
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—  A35  GENERATE  SERVICE  MESSAGE 

—  PARA  3. 2.1.2. 3,  JANAP-128  PARA  319 

—  REV  BAA 

—  12/15/81  PD 

procedure  GENERATE_SERVICE_MESSAGE  is 
begin 

— >  OBTAIN  SVC  MESSAGE  FORMAT  BASED  ON  SERVICE  MESSAGEJTYPB 
—  AND  MESSAGE  FORMAT 
— >  FILL  IN  OSRI,  OSSN ,  DATE  TIME 
— >  ADD  RI  FROM  ORIG  MESSAGE  OSRI 

— >  ADD  ORIG  MESSAGE  OSRI,  OSSN,  DATE  TIME  AS  REFERENCE 
if  SERVICE_MESSAGE  TYPE  -  [INVALID  RlToUTPUT  SCTY  MISMATCH 
I  ILLEGAL  EXCHANGE  I  ALL  RI_INVAllD]  then  ~ 

— >  ADD  RIS 

elsif  SERVICE_MESSAGE  TYPE  -  OPEN  CSN  or  INCORRECT  CSN  then 
— >  ADD  CSNS  ~  “  ~ 

end  if; 

end  GENERATE  SERVICE  MESSAGE; 


Threshold  Status 


QUEUE  RECEIVED  MESSAGES 


— A3S1  ROUTE  TO  STORAGE 
— PARA  3.2.1.2.14.4 
—REV  BAAA 
—12/11/81  PD 

procedure  ROUTE_TO_STORAGE  Is 
begin 

— >SEND  A  COPY  OP  THE  MESSAGE  &  MCB  TO  REFERENCE  STORAGE 
if  PRECEDENCE  /»  W  and  PRECEDENCE  /»  Y  and  PRECEDENCE  /»  Z 
and  THRESHOLD_STATUS  -  UPPER  then 
— >  ROUTE  MESSAGE  AND  MCB  TO  OVERFLOW 
— >MAKE  AN  OVERFLOW_OUT_ENTRY 
else 

— >  ROUTE  MESSAGE  TO  INTRANSIT  STORAGE 
end  if; 

end  ROUTE  TO  STORAGE; 


EOT. . 
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— A362  DETERMINE  SATURATION  LEVEL 
—PARA  3.2.1.2.14.4 
— REV  BAAA 
—12/11/81  PD 

procedure  DETERMINE_SATURATION_LEVEL  is 
begin 

if  OCCUPANCY_LEVEL  >  UPPER  THRESHOLD  then 
THRESHOLD_STATUS  -  UPPER? 
elsif  OCCUPANCY_LEVEL  >  MIDDLEJTHRESHOLO  then 
THRESHOLD_STATUS  -  UPPER  MIDDLE; 
elsif  OCCUPANCY_LEVEL  >  LOWERJTHRESHOLD  then 
THRESHOLD_STATUS  »  LOWER_MIDDLE; 
else 

THRESHOLD_STATUS  «  LOW; 
end  if; 

end  DETERMINE  SATURATION  LEVEL; 


— A363  REENTER  FORM  OVERFLOW 
—PARA  3.2.1.2.14.4 
—REV  BAAA 
—12/11/81  PO 

procedure  REENTER_FROM_OVERFLOW  is 
begin 
loop 

if  TH£ESHOLD_STATUS  ■  LOW  then 

for  all  MESSAGES  in  OVERFLOW__STORAGE  loop 
— >  ROUTE  MESSAGE  TO  INTRANS IT__STOR AGE 
— >  MAKE  OVERFLOW_IN_ENTRY 
end  loop; 
end  if; 
end  loop; 

end  REENTER_FROM  OVERFLOW; 


— A364  SELECT  NEXT  MESSAGE 
—PARA  3. 2.1.4. 1,  3. 2. 1.2. 3 
— REV  BAAA 
— 12/11/81  PD 

procedure  SELECT_NEXT_MESSAGE  is 
begin 

— >  WITHIN  THE  HIGHEST  PRIORITY  MESSAGES  AVAILABLE 
— >  SELECT  THE  EARLIEST  SERVICE  MESSAGE 
if  NO  SERVICE  MESSAGES  then 

— >  SELECT  THE  EARLIEST  MESSAGE 
end  if; 

end  SELECT  NEXT  MESSAGE; 


Route/Line  Data 


PROCESS  MESSAGES 


Collective 


ROUTE  MESSAGES 


— A41 1  EXPAND  COLLECTIVE  RIS 
—REV  BAAA 
— 11/5/81  PD 

procedure  EXPAND_COLLECTIVE_RIS  Is 
begin  “  ” 

for  all  RIS  in  HEADER  loop 
if  RI ( 3 - •  *>  s  "CR"then 

— >  LOOK  UP  in  COLLECTIVE  RI  TABLE 
— >  ASSOCIATE  RI  WITH  LINE  OlT  LINES  FOR  OUTPUT 
end  if; 
end  loop; 

end  EXPAND  COLLECTIVE  RIS; 


—  A412  LOOK  UP  INDIVIDUAL  RIS 

—  REV  BAAA 

—  11/5/81  PD 

procedure  LOOK_UP_INDIVIDUAL_RIS  is 
begin 

for  all  RIS  ON  ROUTING  LINE  loop 
if  RK3..4)  /*  "CR"  Then 

~ >  LOOK  UP  RI  IN  ROUTING  TABLE 
— >  ASSOCIATE  LINE  FOR  OUTPUT  WITH  RI 
end  if; 
end  loop; 

end  LOOK  UP  INDIVIDUAL  RIS: 


— A41 3  PERFORM  ROUTING  LINE  SEGREGATION 

—PURPOSE  :  GENERATES  MULTIPLE  ROUTES,  SEGREGATED  BY  OUTPUT 
—  TRUNK  TYPE  . 

—REQUIRED  BY  PARAGRAPH:  3-2. 1.2. 7. 6,  FURTHER  REFERENCES  IN 

—  DCAC-370-D175-1,  SECTION  9-4. 

—  REV  BAAA 

—  11/5/81  HF/PD 


D 


procedure  SEGREGATE  is 
begin 

for  NEXT  RI  in  ROUTE- LINE  loop 
—OBTAIN  NEXT  RI  ITT  HEADER 
if  NEXT  RI  a  RI  TERMINATOR  (2EH)  then 

— >  CSPY  RIjrERMINATOR  TO  NEW_ROUTE_LINE; 
exit  loop; 
end  if; 

if  NEXT  RI  s  RI  in  GROUP  RI  then 
— >  CtfPY  NEXT_RI  TO  NEff_ROUTE  LINE; 
else 

— >  REPEAT  UNTIL  ALL  RI  IN  GROUP  RI  HAVE  BEEN  COMPARED  TO 
— >  NEXT  RI;  ' 
end  if; 

if  NO  RIsNEXT  RI  then 

if  OUTPUT  DEVICE  is  DTE  then 

if  LMF  PAIR  a  "SC","CC","BB",',DD"  or  »II"then 
— >  EOPY  AN  EQUIVALENT  NUMBER  OF  SPACES  TO 
— >  NEW  ROUTE  LINE; 
end  if; 

elsif  LMF  FIRST  a  "S","C","B","D"  or  "I"then 
— >  COPY  A  SINGLE  SPACE  TO  NEW  ROUTE  LINE; 
elsif  LMF  FIRST  a  "T" , "R" ,"F" ,”0*  or  "X"then 
— >  COPY  "SI"(0FH)  TO  NEW_ROUTE_LINE; 
else 

raise  LMF_ERROR; 
end  if;  ” 
end  if; 

— >  COPY  ONE  SPACE  CHARACTER  TO  NEW_ROUTE__LINE ; 
end  loop; 
end  SEGREGATE; 

EOT.. 
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A42  TRANSLATE  MESSAGES 


—  A421  CHECK  LMF  PAIR 

—  DCAC  370-D175-1  PARA  9-1A  TABLE  9-1 

—  REV  BAAA 

—  11/20/81  PD 

procedure  CHECK_LMF  PAIR  is 

begin  ~  ~ 

If  SECOND  LMF  CHARACTER  not  ACCEPTABLE  TO  LINE  then 
TRANSLATIONS AIR  s  FIRST  LMF  CHARACTER  & 
LINE_LMF_CHARACTER;  ”  " 

else  “  “ 

TRANSLATION  PAIR  s  LMF  PAIR; 
end  if;  ” 

if  TRANSLATION  PAIR  /s  LEGAL  EXCHANGE  then 
~>  REMOVE  MESSAGE  FROM  SYSTEM 
— >  TREAT  RI  AS  BAD  RI 
— >  GENERATE  SERVICE  MESSAGE 
— >  INFORM  OPERATOR 
end  if; 

end  CHECK  LMF  PAIR; 


REFORMAT  MESSAGE 


—  A4221  CHECK  FORMAT  TRANSLATION 

—  DCDC-370-D175-1  TABLE  9-2 

—  REV  BAAAA  * 

—  11/6/81  PD 

procedure  CHECK_FORMAT_TRANSLATION  is 
begin  “  ™ 

— >  READ  FORMAT  INFO  FILE  (KEY  s>  TRANSLATION  PAIR) 
if  TO  127  then  ~ 

CONVERT  TO  ACP  127; 
elsif  TO  728“then 

C0NVERT_T0_JANAP_1 28  J 
else  “ 

null; 
end  if; 

end  CHECK  FORMAT  TRANSLATION; 


—  A4222  CONVERT  TO  JANAP  128 

—  DCAC-370-D 175-1  PARA  9-2  TABLE  9-2 

—  ALSO  SPEC  PARA  3.2.1.2.10.4 

—  REV  BAAAA 

—  11/20/81  PD 

procedure  C0NVERT_T0_JANAP_1 28  is 
begin  “  ~ 

— >  DELETE  ACP  FMT  LN  2,  SAVING  INFO 
— >  GENERATE  JTNAPHFMT  LN  2  AS  FOLLOWS 
PRECEDENCE  :*  PRECEDENCE  FROM  FMT  LN  2; 

LMF  PAIR  :a  "FT";  “  “ 

CLA?3  :  a  CLASS  FROM  FMT  LN  4; 

CIC  CAI  a  ????????;  “  “ 

if  ORIGINATING  STATION  is  RELAY  or  TRIBUTARY  OFF  S&F  then 
0SRIC1..4)  :a  RELAY_RI(1..4); 
else 

0SRK1..4)  : a  S&F  RI(1..4); 
end  if; 

OSRK5..7)  :=  CHANNEL  ID; 

0SSN(5. .7)  : a  *0'  &  INCOMING  CSN; 

DATE  TIME  :a  DATE  TIME  RECEIVED; 

RIS  Ta  ACP  RIS;  “ 

— >  ADD  SPlCES,  DASHES  AND  END  OF  ROUTING  INDICATOR  AS 
—  REQUIRED 

end  CONVERT  TO  JANAP  128; 


EOT 


—  A4223  CONVERT  TO  ACP  127 

—  DCAC-370-D 175-1  TABLE  9-2 

—  ALSO  SPEC  PARA  3.2.1.2.10.3.10,  3.2.1.2.10.3.11, 

—  3.2.1.2.10.3.12 

—  REC  BAAAA 

—  11/20/81  PD 

procedure  CONVERT_TO_ACP_127  is 
begin 

if  FMT  LINE  4  is  CORRECT  or  MESSAGE  is  SUSP  DUP  then 
— >  EELETE  JANAP  FMT  LN  2,  SAVING  INFO  ~ 

—  GENERATE  ACP  EMT  IN  ?  AS  FOLLOWS 

DOUBLE  PRECEDENCE  PROSlGN  :a  (1,2  a>  PRECEDENCE); 

— >  CORY  RIS  FR0M”JANAP  FMT  LN  2 
—  GENERATE  ACP  FMT  LN  I  AS”FOrLOWS 
PROSIGN  :*  "DE"7  ”  ” 

RI  :a  OSRI; 

ACP  SSN  :=  OSSN; 

DATE  TIME  :a  DATE  TIME; 

if  PRECEDENCE  a  »7»  or  PRECEDENCE  a  *Y*  then 

— >  INSERT  <FIGS  JJJJJSSSSS  LTRS>  BEFORE  FMT  LN  2 
end  if; 

if  FMT  LN  4  not  CORRECT  then 

—  GENERATE  FMT  LN  4  (ONLY  ON  SUSP  DUP) 
if  CLASS  a  *U'  then 
OP_SIGNAL  : a  "ZNR"; 
else” 

OP  SIGNAL  ;a  "ZNY"; 
end  Tf; 

CLASS  X5  : a  (1,2, 3. 4, 5  a>  CLASS); 
end  if;” 

— >  ADD  12  LTRS  AFTER  EOM  SEQUENCE 
else 

— >  REMOVE  MESSAGE  FROM  SYSTEM 
— >  INFORM  SUPERVISOR 

— >  GENERATE  INVALID__RI  SERVICE  MESSAGE 
end  if; 

end  CONVERT_TO_ACP_127; 


—  A4224  CHECK  FOR  REMOVAL  OF  DELETES 

—  DCAC-370-D175-1  TABLE  9-2 

—  REV  BAAAA 

—  11/6/81  PD 

procedure  CHECK_FOR_DELETE_REMOVAL  la 
begin  *  ~ 

— >  READ  DELETE_INFO  FILE  (KEY  «>  TRANSLATION  PAIR) 
if  YES  then 

REMOVE^ DELETES ; 
end  if;  — 

end  CHECK  FOR  DELETE  REMOVAL; 


— A4225  REMOVE  DELETES 
— DCAC-370-D175-1  TABLE  9-2 
—REV  BAAAA 
—11/6/81  PD 

procedure  REMOVE^ DELETES  is 
begin  — 

for  all  CHARACTERS  in  BODY  loop 

if  CHARACTER  a  SI  or  CHARACTER  *  SO  then 
— >  PLACE  •  •  IN  NEW  BODY 
elaif  CHARACTER  /a  DEL”then 

— >  PLACE  CHARACTER  IN  NEW  BODY 
end  if;  " 

end  loop; 

BODY  :s  NEW  BODY; 
end  REMOVE  DElETES; 


EOT.. 
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AA23  TRANSLATE  CHARACTER  CODE 


— A4231  CHECK  FOR  CHARACTER  SET  TRANSLATION 
— DC AC-370-D 175-1  TABLE  9-2 
—REV  BAAAA 
—11/6/81  PD 

procedure  CHECK—FOR—CHARACTER_SET— TRANSLATION  is 
begin  —  -  ~ 

— >  READ  CHAR  SET  INFO  FILE  (KEY  s>  TRANSLATION  PAIR) 
if  ASCII  then” 

TRANSLATE  TO  ASCII; 
elsif  ITA  tTTen “ 

TRANSLATE  TO  ITA  2; 
else  ”  ”  ” 

null; 
end  if; 

end  CHECK_FOR_CHARACTER_SET_TRANSLATION ; 


— A4232  TRANSLATE  TO  ASCII 
— DCAC-370-O175-1  9-6C  TABLE  9-2 
—REV  BAAAA 
—11/6/81  PD 

procedure  TRANSLATE  TO  ASCII  is 
begin  “  “ 

CURRENT  CASE  :»  LTRS; 

for  all”CHARACTERS  in  MESSAGE  loop 

if  CHARACTER  *  LTRS  or  CHARACTER  s  FIGS  then 
CURRENT  CASE  :*  CHARACTER; 

— >DELETE  CHARACTER; 
else 

— >  CONVERT  CHARACTER  TO  ASCII  BASED  ON  CURRENT_CASE; 
end  if; 
end  loop; 

end  TRANSLATE  TO  ASCII; 


EOT.. 
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— A4233  TRANSLATE  TO  ITA-2 
— DC AC-370-D 175-1  TABLE  9-2 
—REV  BAAAA 
—11/6/81  PD 

procedure  TRANSLATE  TO  ITA  2  Is 
begin  “  ”  ” 

— >  INSERT  LTRS  IN  NEW  MESSAGE 

CURRENT  SHIFT  :«  LTRS;" 

for  all~CHARACTERS  in  MESSAGE  loop 

— >  LOOK  UP  ITA  EQUIV  AND  REQUIRED  SHIFT  FOR 
—  CHARACTER 

if  REQUIRED  SHIFT  /s  CURRENT  SHIFT  then 
— >  INSERT  REQUIRED  SHIFT  ” 

CURRENT_SHIFT  is  RE$UIRED— SHIFT; 
end  if; 

— >  INSERT  ITA  EQUIV  IN  NEV_MESSAGE ; 
end  loop;  "  ~ 

MESSAGE  is  NEW  MESSAGE; 
end  TRANSLATE  T0"ITA  2; 


EOT 


— A4234  CHECK  FOR  CARD  CONVERSION 
— DCAC-370-D175-1  TABLE  9-2 
--REV  BAAAA 
—11/9/81  PD 

procedure  CHECK  FOR  CARD  CONVERSION  is 
begin  "  “ 

— >  READ  CARD  INFO  FILE  (  KEY  s>  TRANSLATION  PAIR) 
if  TO  CARD  then 
TRANSLATE  TO  CARD; 
elsif  FROM  EART5  then 
TRANSLATE  FROM  CARD; 
else 
null; 
end  if; 

end  CHECK  FOR  CARD  CONVERSION; 


— A4235  TRANSLATE  TO  CARD 
— DCAC-370-D175-1  CHAPTER  9  TABLE  9-2 
—REV  BAAAA 
— 1V20/81 

procedure  TRANSLATE_TO_CARD  la 
begin  “ 

— >  PLACE  "MTMS"  IN  RECORD  COUNT  OF  HEADER 
for  all  LINES  in  BODY  loop 

—  A  LINE  IS  THE  SEQUENCE  OF  CHARACTERS  BETWEEN  CR-CR-LF 
..  SEQUENCES 

— >  DETERMINE  LINE  LENGTH 
if  LINE  LENGTH  *  8 7  then 
OUT  LINE  :s  LINE; 
elaif“LINE  LENGTH  <  80  then 

OUTLINE  7=  ( 1 . .LINE  LENGTH  =>  LINE,  others  *>*•);  * 

else 

—  LINE  LENGTH  >  80 
OUT  LIN?  :s  LINEC1..80); 

SECOND  OUT  LINE  Ss  (1..LINE  LENGTH-80  s>  LINE  (81.. 
LlffE  LENGTH) .others  s>  T  »); 
end  if; 
end  loop; 

— >  DELETE  EOM  SEQUENCE 

— >  GENERATE  E?T  CARD  WITH  "MTMS"  IN  RECORD  COUNT 
end  TRANSLATE  TO  ClRD; 


— A4236  TRANSLATE  FROM  CARD 
— DCAC-370-D175-1  CH.  9  PARAGRAPH  5,8 
—REV  BAAAA 
—11/20/81  PD 

procedure  TRANSLATE_FROM_CARD  is 
begin  ~ 

if  JANAP  128  then 

for  EATTh  LINE  (CARD)  in  body  loop 
— >  DELETE  TRAILING  SPACES 
— >  ADD  CR  CR  LF 
end  loop ; 
else 

for  EACH  LINE  in  body  loop 

— >  COUNT  PRINTABLE  CHARACTERS  IN  LINE 
if  >  69  then 

— >  BREAK  INTO  TWO  LINES  OF  MAX  69  CHARACTERS 
— >  BREAK  AT  WORD  AS  CLOSE  TO  69  CHARACTERS  AS  POSSIBLE 
end  if; 

— >  ADD  CR  CR  LF  TO  EACH  LINE  PRODUCED 
end  loop; 
end  if; 

— >  DELETE  EOT  CARD 
— >  ADD  EOM  SEQUENCE 
end  TRANSLATE~FROM  CARD; 


EOT 


— A4237  CHECK  FOR  FILL 
— DCAC-370-D175-1  TABLE  9-2 
—REV  BAAAA 
—11/20/81  PD 

procedure  CHECKJFOR_ FILL  is 
begin  “ 

— >  READ  FILL  INFO  FILE  (KEY  s>  TRANSLATION  PAIR) 
if  YES  then  ” 

FILL  LAST  BLOCK; 
end  if” 

end  CHECK  FOR  FILL; 


— A4238  FILL  LAST  BLOCK 
— DCAC-370-D 175-1  CH.  9  PARAGRAPH  10 
—REV  BAAAA 
—11/20/81  PD 

procedure  FILL_LAST_ BLOCK  is 
begin  “  ~ 

— >  FILL  LAST  80  CHARACTER  BLOCK  OF  MESSAGE  (AFTER  LAST  'MM 
if  ASCII  then 
— >  FILL  WITH  SI 
else 

— >  FILL  WITH  LTRS 
end  if; 

end  FILL  LAST  BLOCK; 


xsn  tiij  I  I  unsNvu 


119 


AA21-3  CHECK  IMF  PAIR/REFORMAT  MESSAGE/ TRANSLATE  CHARACTER  CODE  OVERVIEW 


— A431  CHECK  LINE  AVAILABILITY 
—PARA  3.2.1.2.14.3 
—REV  BAAA 
—11/5/81  PD 

procedure  CHECK_LINE_AVAILABILITY  la 
begin  ""  ““ 

— >  LOOK  UP  LINE  AVAILABILITY  IN  LINE  TABLE 
if  LINE  AVAILABLE  then 

— >  PLACE  MESSAGE  IS  INTRANSIT  STORAGE 
else  ~ 

— >  MAKE  SOM  ENTRY  IN  JOURNAL 
— >  PLACE  MESSAGE  ON  INTERCEPT  STORAGE 
— >  MAKE  EOM  ENTRY  IN  JOURNAL  ~ 
if  VOLUME  FULL  then 
— >REQU?ST  NEW  VOLUME 

— >ENTER  NEW  VOLUME  IN  INTERCEPT  VOLUMES  LIST 
end  if;  ~ 

end  if; 

end  CHECK_LINE_AVAILABILITY; 


—1432  REINTRODUCE  INTERCEPTED  MESSAGES 
—PARA  3.2.1.2.14.3 
—REV  BAAA 
—11/5/81  PD 

procedure  REINTRODUCE_INTERCEPTED_MESSAGES  is 
begin  "  " 

—  DONE  ON  SSF  COMMAND 

for  all  VOLUMES  ON  INTERCEPT  VOLUMES  LIST  loop 
if  VOLUME  NOT  MOUNTED  than" 

— >  reqTTest"mount  by  operator 

and  if; 

for  all  MESSAGES  ON  VOLUME  loop 

if  MESSAGE  OUTPUT  LINE  *  LINE(S)  TO  BE  REINTRODUCED  than 
— >  MAKE"SOM  ENTRY  ON  JOURNAL 
— >  PLACE  MESSAGE  IN  INTRANSIT  STORAGE 
— >  MAKE  EOM— ENTRY  ON  JOURNAL  " 
end  if;  " 

and  loop; 
and  loop; 

and  REINTRODUCE  INTERCEPTED  MESSAGES; 


—  A433  SELECT  MESSAGE  FOR  OUTPUT 

—  REV  BAAA 
~  11/5/81  PD 

procedure  SELECT_MESSAGEJFOR_OUTPUT  is 
begin  ”  ~  “ 

— >  SELECT  NEXT  MESSAGE  FOR  OUTPUT  BASED  ON  HIGHEST  PRIORITY 
— >  WITHIN  PRIORITY f  SELECT  ON  EARLIEST  TIME  RECEIVED 
end  SELECT  MESSAGE  FOR  OUTPUT; 


TRANSMIT  MESSAGE 


Invalid  Message  Length 


VALIDATE  HEADER 


A511 

VALIDATE  MESSAGE  LENGTH 

—  REQUIRED  BY  PARAGRAPH  3-2.1.2.15.1  (C) 

—  THIS  PROCEDURE  VALIDATES  MESSAGE  BLOCK  COUNT  BY 

—  RE-COUNTING  BLOCKS  UNTIL  AN  END-OF-MESSAGE  IS 

—  ENCOUNTERED. 

—  12/11/81  RCR 

procedure  VALIDATE_MESSAGE_L£NGTH  is 
begin 

COMPUTED  NUMBER  OF_BLOCKS  :s  0; 
while  FIUE_STATUS/sEND  OF  MESSAGE  loop 
— >  BUMP  TO  NEXT  BLOCK(FlLE_STATUS) ; 
COMPUTED_NUMBER_OF_BLOCKS  :s  COMPUTED_NUMBER_OF_BLOCKS  +1 
end  loop; 

if  COMPUTED_NUMBER_OF_BLOCKS  /=  NUMBER_BLOCKS 
then 

ERROR_CODE  :s  INVALID_LENGTH_CODE ; 
end  if: 


—  A512 

—  THIS  PROCEDURE  VALIDATES  THE  ROUTING  INDICATOR  OF 

—  THE  MESSAGE  AS  BEING  THE  ROUTING  INDICATOR  OF  THE 

—  OUTPUT  LINE  IN  USE.  THIS  VALIDATION  IS  REQUIRED 

—  BY  PARAGRAPH  3.2.1.2.1.15.1  B. 

—  12/11/81  RCR 

procedure  VALIDATE_OUTPUT_RI  is 
begin 

— >  DETERMINE  RI  THIS  LINE 
— >  DETERMINE  RI  OF  CURRENT  TRANSMISSION 
if  RI  THIS  OUTPUT  LINE  / s  RI  THIS  MESSAGE  then 
ERR$R_C0EE  :=  lfVALID_LINE”RI;  ~ 
end  if; 


—  A51 3 

—  THIS  PROCEDURE  VALIDATES  THE  LANGUAGE  MEDIA  FORMAT 
~  AS  DESCRIBED  BY  PARAGRAPH  3.2.1.2.15.1  (C). 

—  THIS  IS  ACCOMPLISHED  BY  ISOLATING  THE  FIRST  CHARACTER 

—  AND  INSURING  THAT  THE  COMBINATION  OF  THE  TWO  CHARACTERS 

—  IS  PROPER.  SHOULD  THE  COMBINATION  BE  INVALID,  AN  ERROR 

—  CODE  IS  PRODUCED  FOR  USE  IN  THE  SERVICE  MESSAGE  ROUTINE. 

—  VALID  LMF  COMBINATIONS  ARE  SHOWN  IN  DCAC  370-D175-1, 

—  PAGE  9-2.  LMF  CODES  ARE  DEFINED  IN  DCAC  370-D175-1, 

—  PAGE  3-4. 

—  12/11/81  RCR 

procedure  VALIDATE_LMF  is 
begin 

case  FIRST_LMF_CHARACTER  is 
when  B  => 

if  SECOND_LMF  CHARACTER  /s  'B'  then 
ERROR_CODE  :  =  INVALID_LMF; 
end  if; 
when  j  => 

if  SECOND  LMF  CHARACTER  \*  ’D'  then 
ERROR_CSDE  :=  INVALID_LMF; 
end  if; 
when  I  => 

if  SECOND  LMF  CHARACTER  /s  'I'  then 
ERROR_CODE  Ts  INVALID_LMF ; 
end  if; 
when  S  => 

case  SECOND  LMF_CHARACTER  is 
when  CIA |T  => 
null; 

when  others  => 

ERROR_CODE  :s  INVALID__LMF ; 
end  case; 
when  C| AIT  IQ  IF  => 

case  SECOND  LMF_CHARACTER  is 
when  CIA |I|T_PAREN  => 
null ; 

when  others  => 

ERROR_CODE  :=  INVALID__LMF ; 
end  case;  ” 

when  R  => 

case  SECOND  LMF  CHARACTER  is 
when  T!T_FAREl  => 
null; 

when  others  => 

ERROR_CODE  :=  INVALID_LMF; 
end  case; 
when  others  s> 

ERROR_CODE  :=  INVALID_tMF; 
end  case; 


—  A514 

—  THIS  PROCEDURE  MAKES  SECURITY  CHECKS  AS  REQUIRED 

—  BY  PARAGRAPHS  3.2.1.2.15.1  (D)  AND  3. 2. 1.2. 8. 6  . 

—  12/11/81  RCR 

procedure  VALIDATE_HEADER_SECURITY  is 

begin 

NUMBER_OF_TRANSMISSIONS  :  =  0; 

NUMBER_OF_DESTINATIONS  :=  NUMBER_RIS  THIS  MESSAGE; 
while  NUMBER_OF_DESTINATIONS  >0  loop 
— DETERMINE  SECURITY  OF  CURRENT  RI 
if  CLASS  >  SECURITY  OF  CURRENT  RI  then 
— >SAVE  BAD  RI 
— >DO  NOT  SEND  TO  THIS  RI 
ERROR_CODE  :=  INVALID_RI_SECURITY ; 
else 

NUMBER_OF_TRANSMISSIONS  :s  NUMBER_OF_TRANSMISSIONS  +1 
end  if; 
end  loop; 

—  DETERMINE  IF  ANY  RI'S  WERE  MISSED 
if  NUMBER_OF_TRANSMISSIONS  /  =  NO_OF_DESTINATIONS  then 
—  PRODUCE  NON-TRANSMITTED  HI'S  ON  SERVICE  MESSAGE 
GENERATE_SERVICE_MESSAGE ; 
end  if; 


—  A515 

—  THIS  PROCEDURE  INSERTS  OUTPUT  CHANNEL  IDENTIFICATION 

—  AND  NUMBERING  AS  REQUIRED  IN  PARAGRAPH  3-2.1.2.15.1  (E) 

—  AND  JANAP-128. 

procedure  INSERTS  _OUTPUT_CHANNEL  ID_AND_NUMBER  is 
begin 

case  CHANNEL  MODE  is 
when  2i^|5~*s> 

~>APPEND  SOH  ON  HEADER 

— >INSERT  CHANNEL  ID  IN  TRANSMISSION  IDENTIFIER 
— >INSERT  CHANNEL  SEQUENCE  IN  TRANSMISSION  IDENTIFIER 
if  PRECEDENCE  s  »Y'  or  *Z»  and 
MESSAGE  MODE  =  JANAP  128  then 
— >INSERT  BELL  CODE  AFTER  TRANSMISSION  IDENTIFIER 
end  if; 

when  others  s> 
null; 
end  case; 

if  MESSAGE_CANCELLED  then 

if  MESSAGE_IN  TRANSMISSION  then 
— >  TRANSMIT  CANTRAN  SEQUENCE 
— >  INCREMENT  CSN  “ 
end  if; 
end  if; 
end; 


EOT. . 


—  A531 

—  THE  PURPOSE  OF  THIS  ROTINE  IS  TO  DESCRIBE  THE  REQUIREMENTS  FOR  THE 

—  FRAMING  OF  ASYNCHRONOUS  MESSAGES  AS  DESCRIBED  IN  THE  FOLLOWING: 

MANUAL  PARAGRAPH(S) 

JANAP  128  401  (g). 

—  01/28/82 

procedure  FRAME__ASYNCHRONOUS_MESSAGE  is 
begin 

if  MESSAGE  MODE  a  ACP  127  i  ACP  127  MOD  then 

— >  PRECEDE  TEXT  WITH  SIX  "BLINKS*  AND  SIX  "LTRS" 
elsif  MESSAGE  MODE  a  JANAP  128  then 

— >  PRECEDE“TEXT  WITH  SIX  "NULLS”  AND  SIX  "DELETES" 
end  if; 

— >  FOLLOW  TEXT  WITH  ????????? 
end  FRAME  ASYNCHRONOUS  MESSAGE: 
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FRAME  SYNCHRONOUS  MESSAGES 


—  A5321 

—  THE  PURPOSE  OF  THIS  PROCEDURE  IS  TO  FRAME  SYNCHRONOUS 

—  MESSAGES  TO  TRIBUTARIES 

—  WITH  THE  PROPER  PROTOCOL  AS  DICTATED  BY  THE 

—  LMF  OF  THE  RECEIVING  STATION.  THIS  REQUIREMENT  IS 

—  CONTAINED  IN  DCAC  370-D175-1,  CHAPTER  8. 

—  12/16/81  RCR 

procedure  FRAME_TRIBUTARY_MESSAGE_BLOCK_BY_BLOCK  is 
begin 

case  SECOND  LMF  CHARACTER  is 
when  CiRiTiAiS  s> 

if  BLOCK  FRAMED  =  1  then 

— >  COFY  MCB  TO  OUTPUT  BUFFER 
elsif  BLOCK  FRAMED  /=  NUMBER_BLOCKS  then 

— >  PRECEDE  CURRENT  BLOCK  WITH  "STX"  AND  "DEL" 

— >  AND  APPEND  IT  WITH  "ETB"  AND  MBP" 
end  if; 

if  BLOCK_FRAMED  =  NUMBER  BLOCKS  then 
— >  PRECEDE  BLOCK  WITH  "STX"  AND  "DEL" 

— >  APPEND  "ETX"  AND  "BP"  TO  BLOCK 
end  if; 
when  S  => 

— >  PRECEDE  BLOCK  WITH  "SOH"  AND  "D» 

— >  APPEND  "ETX"  AND  "BP"  TO  BLOCK 
when  D  => 

— >  THE  DCAC  370-D175-1  DOCUMENT  REFERS 
— >  TO  NON-EXISTENT 

— >  FIGURE  8-1  IN  DEFINING  THE  FORMAT  FOR  LMF  "D" 
when  B5I  s> 

if  BLOCK_FRAMED  =  1  then 

— >  PRECEDE  THE  MCB  WITH  "SOH"  AND  "D"  CHARACTERS 
— >  FOLLOW  IT  WITH  "ETX"  AND  "BP"  CHARACTERS 
elsif  BLOCK_FRAMED  =  2 i NUMBER_BLOCKS  then 
— >  BUILD  MODE  CHANGE  BLOCK 
— >  TRANSMIT  MODE  CHANGE  BLOCK 
else 

— >  PRECEDE  MESSAGE  BLOCK  WITH  "SOH"  AND  "D" 

— >  CHARACTERS 

— >  AND  FOLLOW  IT  WITH  ?????????????? 
end  if; 
when  G  => 

if  BLOCK_FRAMED= 1  then 

— >  PRECEDE  BLOCK  OF  MESSAGE  WITH  "SOH"  AND  SEL 
CHARACTERS 

— >  AND  FOLLOW  IT  WITH  "EM",  "ETB" ,  AND  "BP"  CHARACTERS 
elsif  BLOCK  FRAMED  /s  NUMBER  BLOCKS  then 
— >  PRECEDE  BLOCK  WITH  "STX71'  AND  "DEL"  CHARACTERS 
— >  AND  FOLLOW  IT  WITH  "ETB"  AND  "BP"  CHARACTERS 
elsif  BLOCK_FRAMED  =  NUMBER  BLOCKS  then 
— >  PRECEDE  BLOCK  WITH  "STJC"  AND  "DEL"  CHARACTERS 
— >  AND  FOLLOW  IT  WITH  "ETB"  AND  "BP"  CHARACTERS 
end  if; 
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when  others  s> 

ERROR_CODE  :  =  INVALID_LMF ; 
end  case; 

end  FRAME_TRIBUTARY_MESSAGE_BLOCK_BY_BLOCK 

EOT.. 


—  A5322 

~  THE  PURPOSE  OF  THIS  PROCEDURE  IS  TO  FRAME  SYNCHRONOUS 
—  MESSAGES  OOUTPUT  ON  TRUNKS  WITH  THE  PROPER  PROTOCOL  AS 
—  DICTATED  BY  THE 

—  LMF  OF  THE  RECEIVING  STATION.  THIS  REQUIREMENT  IS 
—  CONTAINED  IN  DCAC  370-D175-1 ,  CHAPTER  8. 

—  12/16/81  RCR 

procedure  FRAME_TRUNK_MESSAGE_BLOCK_BY_BLOCK  is 
begin 

case  SECOND  LMF  CHARACTER  is 
when  C ! R i?i A i Q  => 

if  BLOCK_COUNT  =  1  then 

— >  PRECEDE  HEADER  WITH  "SOH"  AND  SEL  CHARACTERTS 
— >  FOLLOW  HEADER  WITH  "ETB"  AND  "BP” 
elsif  BLOCK  COUNT  /=  NUMBER  BLOCKS  then 
~>  PRECEDE  BLOCK  WITH  "STX"  AND  "SEC"  CHARACTERS 
— >  FOLLOW  IT  WITH  "ETB"  AND  "BP"  CHARACTERS 
elsif  BLOCK_COUNT  =  NUMBER  BLOCKS  then 
— >  PRECEDE  BLOCK  WITH  "STX" 

— >  FOLLOW  BLOCK  WITH  "ETX"  AND  "BP" 
end  if; 
when  S  => 

if  BLOCK_COUNT  =  1  then 
— >  PRECEDE  HEADER  WITH  "SOH"  AND  "D" 

— >  FOLLOW  HEADER  WITH  "ETB"  AND  "EB" . 
else 

— >  PRECEDE  BLOCK  WITH  "STX"  AND  "U" 

— >  FOLLOW  BLOCK  WITH  "ETX"  AND  "BP" 
end  if; 
end  case; 

end  FRAME  TRUNK  MESSAGE  BLOCK  BY  BLOCK; 

EOT..  “  -  -  _ 
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—  A5323 

—  THE  PURPOSE  OF  THIS  PROCEDURE  IS  TO  DESCRIBE  THE  FRAMING  OF 

—  SYNCHRONOUS  MESSAGES  WITH  THE  PROPER  PROTOCOL  AS  DICTATED  BY 

—  THE  LMF  OF  THE  RECEIVING  STATION.  THIS  REQUIREMENT  IS 

—  CONTAINED  IN  DCAC  370-D175-1 ,  CHAPTER  8. 

—  12/11/81  RCR  • 

procedure  FRAME_SYNCHRONOUS_MESSAGE_BLOCK_BY_BLOCK  is 
begin 

case  OUTPUT  LINEJTYPE  is 
when  TRIBUARY  => 

FRAME  TRIBUTARY_MESSAGE_BLOCK_BY_BLOCK ; 
when  TRUNK  => 

FRAME_TRUNK_MESSAGE_BLOCK_BY_BLOCK; 
end  case; 

—  A  BLOCK  OF  A  SYNCHRONOUS  BLOCK-BY-BLOCK  MESSAGE 

—  IS  READY  TO  TRANSMIT. 

—  SYNCHRONOUS  CONTINUOUS  MESSAGES  CANNOT  BE 

—  TRANSMITTED  UNTIL  ALL  BLOCKS  ARE  FRAMED, 
end  FRAME  SYNCHRONOUS  MESSAGE  BLOCK  BY  BLOCK; 


—  A533 

—  THE  PURPOSE  OF  THIS  ROUTINE  IS  TO  ADD  PROTOCOL 

—  TO  A  GIVEN  MESSAGE  AS  A  FUNCTION  OF: 

SYNCHRONOUS/ ASYNCHROPNOUS 
LMF 

TRUNK/TRIBUTARY 
MODE  OF  TRANSMISSION 

—  THIS  PROTOCOL  IS  REQUIRED  BY  THE  FOLLOWING  BY  THE 
~  FOLLOWING  MANUAL  REFERENCES. 

MANUAL  PARAGRAPH 

—  TT-B1-1 101-0001A  3.2.1.2.15 

3.2. 1.2. 8. 6 

—  DCAC  370-D175-1  CHAPTER  5,8,11 

—  12/15/81  RCR 

procedure  ADD__PROTOCOL  is 
begin  ~ 

case  TYPE  OF  TRANSMISSION  is 
when  ASYNCHRONOUS  s> 

—  THE  BASIC  UNIT  OF  TRANSMISSION  IS  THE  MESSAGE. 

—  IT  IS  FRAMED  BY  START  OF  MESSAGES  AND  END  OF  MESSAGE 
—  SEQUENCES  AS  DEFINED  IN  JANAP-128  AND  ACP-127. 

—  THE  ASYNCHRONOUS  COORDINATION  IS  A  DERIVATIVE 
—  OF  MODE  I  SYNCHRONOUS  CONTROL. 

FRAME  ASYNCHRONOUS  MESSAGE; 
when  SYTTCHROUNOUS  *>"* 

—  THE  BASIC  UNIT  OF  TRANSMISSION  FOR  SYNCHRONOUS 
—  MESSAGES  IS  AN  80  CHARACTER (OR  LESS)  BLOCK 
—  FRAMED  BY  SPECIAL  CHARACTERS.  THE  PROTOCOL 
—  DEFINES  UNIQUE  FRAMING  FOR  "FIRST",  "INTERMEDIATE" 

—  AND  "LAST"  BLOCKS. 

BLOCK__FRAMED  :s  1; 

whi!e~BLOCKED  FRAMED  <*  NUMBER  BLOCKS  loop 
FRAME_SYNCHlONOUS  MESSAGE  BLflCK  BY  BLOCK; 

BLOCK_FRAMED  :s  BLOCKED  FRAMED  +  ij 
end  loop;  ~~ 

—  SINCE  ALL  BLOCKS  ARE  FRAMED  ,  NOW 
—  READY  TO  TRANSMIT  SYNCHRONOUS  CONTINUOUS  MESSAGES 
end  case; 
end; 


EOT 


SEND  MESSAGE 


A541 

THE  PURPOSE  OF  THIS  ROUTINE  IS  TO  DESCRIBE  THE  REQUIREMENTS 
FOR  THE  TRANSMISSION  OF  A  BLOCK  OF  A  BLOCK-BY-BLOCK  SYNCHRO¬ 
NOUS  MESSAGE  AS  DESCRIBED  BY  THE  FOLLOWING: 

MANUAL  PARAGRAPH 

TT-B1-1  101 -0001 A  3.2.1.2.15 

DCAC  370-D175-1  CHAPTER  5 

02/03/81  RCR 

procedure  TRANSMIT_SYNCHRONOUS__MESSAGE_BLOCK_BY_BLOCK  is 
begin 
loop 
loop 

GENERATE_CONTROL_CHARACTERS ; 
if  BLOCK_READY_TO  SEND  then 
exit; 
else 

— >  SEND  SYNC  CHARACTERS 
end  if; 
end  loop; 

TRANSMIT_START_OF_BLOCK ; 

TRANSMIT_BLOCK_TEXT ; 

if  SYNC  DATA  MODE  /=  BLOCK  BY_BL0CK  then 
if  ACK_RECElVED_FOR_LAST_BLOCK  /=  TRUE  then 
TRANSMIT_CONTROL; 
end  if; 
end  if; 

GENERATE_CONTROL_CHARACTERS ; 

TRANSMIT_END_OF_BLOCK ; 
if  SYNC_DATA_MODE  =  BL0CK_BY  BLOCK  then 
TRANSMIT__CONTROL ; 
end  if; 

WAIT_FOR_BLOCK_ACKOWLEDGEMENT ; 

—  START  AND  END  OF  MESSAGE  JOURNAL  ENTRIES  MAY 

—  BE  MADE  AT  THIS  POINT 
if  BLOCK_COUNT  =  1  then 

OUTPUT_JOURNAL_ENTRY_TYPE  :  =  START  OF_MESSAGE_OUT_CODE ; 
elsif  BLOCK_COUNT  =  NUMBER  BLOCKS  then 
OUTPUT_JOURNAL_ENTRY_TYPE  :=  END_OF_MESSAGE_OUT_CODE ; 
end  if; 

— >  GENERATE  JOURNAL  ENTRY 
end  loop; 


A541 1 

THE  PURPOSE  OF  THIS  PROCEDURE  IS  TO  DESCRIBE  THE 
REQUIREMENTS  FOR  THE  TRANSMISSION  OF  THE  START  OF 
A  SYNCHRONOUS  BLOCK  AS  DESCRIBED  BY  THE  FOLLOWING: 
MANUAL  PARAGRAPHS 

TT-B1-1 101-0001A  3.2.1.2.15 

DCAC  370-D175-1  CHAPTER  5 

02/03/81  RCR 

procedure  TRANSMIT_START_OF_MESSAGE  is 
begin  *™ 

—  THE  FIRST  TWO  FRAMING  CHARACTERS  WERE  INSERTED 

—  IN  THE  TEXT  ACCORDING  TO  MODULE  A532 
— >  TRANSMIT  FRAMING  CHARACTERS 

end : 


—  A5412 

—  THE  PURPOSE  OF  THIS  PROCEDURE  IS  TO  DESCRIBE  THE 
—  REQUIREMENTS  FOR  THE  TRANSMISSION  OF  THE  TEXT  PORTION 
—  OF  A  MESSAGE  BLOCK  AS  CONTAINED  BY  THE  FOLLOWING: 

MANUAL  PARAGRAPH 

Q  —  TT-B 1-1  1 0 1 -0001 A  3.2.1.2.15 

DCAC  370-D175-1  CHAPTER  5-4 (d ) 

—  02/03/81  RCR 

procedure  TRANSMIT_BLOCK_TEXT  is 
begin 

CHARACTERS_THIS  BLOCK  :=  2; 

f  —  COUNTER  INCLUDES  TWO  FRAMING  CHARACTERS 

loop 

GENERATE_CONTROL  CHARACTERS ; 

if  CURRENT_CHARACTER  =  TEXT_CHARACTER!MODE_CONTROLi 

END_OF_MESSAGE  then 

CHARACTERS_THIS_BLOCK  :=  CHARACTERS_THIS_BLOCK  +1; 

_  — >  UPDATE  PARITY  OF  BLOCK 

— >  SEND  CURRENT  CHARACTER 
if  CHARACTERS  THIS  BLOCK  =  82  or 

CURRENT_CHARACTER  =  EOM  then 

exit; 

_  end  if; 

end  if; 
end  loop; 
end ; 

EOT.. 
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A  5  4 1  3 

THE  PURPOSE  OF  THIS  PROCEDURE  IS  TO  DESCRIBE  THE 
REQUIREMENTS  FOR  THE  TRANSMISSION  OF  THE  END-OF-BLOCK 
SEQUENCE  AS  CONTAINED  IN  THE  FOLLOWING: 

MANUAL  PARAGRAPH 

TT-B1-1 101-0001A  3.2.1.2.15 

DCAC  370-D175-1  CHAPTER  5-4(e) 

02/03/81  RCR 

procedure  TRANSMIT_END_OF_BLOCK  is 
begin 

— >  SEND  END-OF-BLOCK  SEQUENCE 
— >  SEND  BLOCK  PARITY 
— >  SET  EOMS_SENT_CODE 
GENERATE_CONTROL_CHARACTERS ; 
end ; 


A5414 

THE  PURPOSE  OF  THIS  PROCEDURE  IS  TO  DESCRIBE  THE 
REQUIREMENTS  FOR  THE  RECEIPT  OF  ACKNOWLEDGEMENTS 
TECHNIQUE  AS  CONTAINED  IN  THE  FOLLOWING: 

MANUAL  PARAGRAPH 

TT-B1-1 101-0001A  3.?. 1.2. 15 

DCAC  370-D175-1  CHAPTER  5-4(e) 

CHAPTER  3-4(a) 

02/03/81  RCR 

procedure  WAIT_FOR_BLOCK_ACKNOWLEDGEMENT  is 
begin 

GENERATE  CONTROL_CHARACTERS ; 

—  SATISFIES  THE  FOLLOWING  REQUIREMENTS: 

—  ACK_RECEIVED  :=  FALSE; 

--  TIMER_TRYS  :=  0; 

—  while  TIMER  TRYS  <*  3  loop 

—  RESET  ACK  TIMER  TO  MAX  VALUE 

(A  DECREASING  COUNTER  ASSUMED) 

—  while  ACK  TIMER  >  0  loop 

if  CONTROL_CHARACTERS_TO  BE  SENT  then 
SEND  INDICATED  CONTROLS 

—  else 

SEND  SYNC  CHARACTERS 

—  end  if; 

if  ACK_RECEIVED  then 

—  return; 

—  end  if; 

—  end  loop; 

—  TIMER_TRYS  : =  TIMER_TRYS  +1 

—  SEND  REPLY  CHARACTER 

—  end  loop; 

—  TIMER  HAS  EXPIRED  THREE  TIMES 

—  ACTIVATE  ALARM 

end  WAIT  FOR  BLOCK  ACKNOWLEDGEMENT; 


TRANSMIT  ASYNCHRONOUS  MESSAGE 


--  A5421 

—  THE  PURPOSE  OF  THIS  ROUTINE  IS  TO  DESCRIBE  THE  REQUIREMENTS 

—  FOR  SENDING  A  RCC  ,  RECEIVER  CONTROL  CHARACTER  ,  SEQUENCE 

—  AS  DESCRIBED  IN  THE  FOLLOWING: 

MANUAL  PARAGRAPH(S) 

DCAC  370-D175-1  11-28 

—  01/19/82  RCR 

procedure  SEND_RCC_SEQUENCE  is 
begin  ~ 

GENERATE_CONTROL_CHARACTERS ; 

THIS  PROCEDURE  SATISFIES  THE  FOLLOWING  REQUIREMENTS: 
if  SEND_GEN_CODE  =  FALSE  then 

—  return; 

elsif  STOP_CODE  =  TRUE  then 
SEND_STOP  SEQUENCE; 
elsif  RT  C(JDE  =  TRUE  then 
SEND_RT_SEQUENCE; 

else  if  ACK_ALTERNATE  =  ACK_1  then 
SEND_ACK1_SEQUENCE ; 

—  else 

SEND_ACK2_SEQUENCE ; 
end  if; 

—  end  if; 

RCC_TO  SEND  : =  FALSE; 

SEND_GEN_CODE  : =  FALSE; 
end  SEND  RCC  SEQUENCE; 

EOT.. 
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—  A5422 

—  THE  PURPOSE  OF  THIS  ROUTINE  IS  TO  DESCRIBE  THE  REQUIREMENTS 

—  FOR  REPLYING  TO  CANCEL  COMMAND  DESCRIBED  IN  THE  FOLLOWING: 

MANUAL  PARAGRAPH (S) 

DCAC  370-D175-1  11-29 

—  01/14/82  RCR 


procedure  REPLY_TO_CAN  is 
begin 

GENERATE_CONTROL_CHARACTERS ; 

THIS  PROCEDURE  SATISFIES  THE  FOLLOWING  REQUIREMENTS: 
if  STOP_RECD  CODE  =  TRUE  then 
STOP  RECD_CUDE  : =  FALSE; 

THREf_RPT_COUNTER  :  =  0; 
elsif  ACK1__RECD  CODE  s  TRUE  then 
CAN  CODE  : =  FAlSE; 

REPllY_TIMER  :=  0; 

THREE_RPT_COUNTER  :=  0; 
if  CAN_SENT_WITHIN_MESSAGE  then 
— >  RETURN  MESSAGE  TO  QUEUE 
— >  PREPARE  TO  SEND  CANTRAN 

—  end  if; 

—  end  if; 

if  REPLY_TIMER_EXPIRED  then 
— >  RESET  REPLY  TIMER 
if  THIRD_CAN_SENT_W/0  RESPONSE  then 
THREE  RPT  ALARM  :=  TRUE; 

TCC_T$_SE¥d  :  =  TRUE; 

—  else 

TCC_TO_SEND  : =  TRUE; 

—  end  if ;- 

—  else 

STOP_RECD_CODE  :=  FALSE; 

THREE_RPT_COUNTER  :=  0; 

—  end  if; 

end  REPLY_TO_CAN; 

EOT. . 


—  A5423 

—  THE  PURPOSE  OF  THIS  ROUTINE  IS  TO  DESCRIBE  THE  REQUIREMENTS 

—  FOR  REPLYING  TO  A  "REP”  OR  "STOP"  COMMAND  AS  DESCRIBED  IN 

—  THE  FOLLOWING: 

MANUAL  PARAGRAPH(S) 

—  DCAC  370-D175-1  11-30 

--  02/04/82 

procedure  REPLY_TO_REP_OR_STOP  is 
begin 

GENERATE_CONTROL  CHARACTERS; 

THIS  PROCEDURE”SATISFIES  THE  FOLLOWING  REQUIREMENTS: 
if  STOP  RECD  CODE  =  TRUE  then 
STOP  RECD  CODE  :  =  FALSE; 

THREE  RPT  COUNTER  : s  0 ; 
elsif  ACE  RCE  CODE  s  FALSE  then 
REP  COEE  :s  FALSE; 

REPCYjriMER  :s  0; 

THREE_RPT_COUNTER  :a  0; 
if  RCVD  ACK  =  TRANS  ACK  ALT  then 
if  ACE_TO  COMPLETE  MSE  =  TRUE  then 
PREPARE~TO_COMPLETE_MSG  :=  TRUE; 
else  ~ 

CAN_CODE  :s  TRUE; 
end  if; 
exit; 

elsif  RT_RECD  CODE  s  TRUE  then 
CAN  CODE  :s  TRUE; 

REPUYJTIMER  :s  0; 

THREE_RPT_COUNTER  :*  0; 
exit; 
end  if; 

if  REPLYJTIMER  \=  0  then 
exit; 
else 

REPLYJTIMER  :s  0; 

TCC  TO_SEND  :=  TRUE; 

if  Third  rep  sent_w/o  response  then 
three_Ept_Ilarm  :s  True; 

end  if; 
end  if; 

end  REPLY  TO  REP  OR  STOP; 


—  A5424 

—  THE  PURPOSE  OF  THIS  ROUTINE  IS  TO  DESCRIBE  THE  REQUIREMENTS 

—  FOR  REPLYING  TO  EOM  COMMAND  AS  DESCRIBED  IN  THE  FOLLOWING: 

MANUAL  PARAGRAPH (S) 

DCAC  370-D175-1  11-31 

—  01/19/82  RCR 
procedure  REPLY_TO  EOM  is 

begin 

GENERATE_CONTROL_CHARACTERS ; 

THIS  PROCEDURE  SATISFIES  THE  FOLLOWING  REQUIREMENTS: 
if  STOP  RECD  CODE  =  TRUE  then 
STOP  RlCD_CffDE  :=  FALSE; 

THREf_RPT_COUNTER  :s  0; 
elsif  ACK_RECD  CODE  s  TRUE  then 
REPLYJTIMER  :=  0; 
if  RECD_ACK  =  TRANS_ACK_ALT  then 
PREPARE_TO_SEND_NEXT_MESSAGE  :=  TRUE; 

—  else 

CAN_CODE  : =  TRUE; 

--  end  if; 

—  exit; 

elsif  RT  RECD  CODE  =  TRUE  then 
REPLY  TIMER  7=  0; 

CAN_C<5DE  : a  TRUE; 
if  REPLY_TIMER_EXPIRED  then 
REPLY_TIMER  :s  0; 

REP_CODE  : =  TRUE; 

TCC_TO_SEND  :=  TRUE; 
end  if ; 
end  if; 

end  REPLY  TO  EOM; 
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—  A5425 

—  THE  PURPOSE  OF  THIS  ROUTINE  IS  TO  DESCRIBE  THE  REQUIREMENTS 

—  FOR  SENDING  A  TCC  SEQUENCE  AS  DESCRIBED  IN  THE  FOLLOWING: 

MANUAL  PARAGRAPH(S) 

DCAC  370-D175-1  11-32 

—  01/15/82  RCR 

procedure  SEND_TCC_SEQUENCE  is 
begin 

GENERATE  CONTROL_CHARACTERS ; 

THIS  PROCEDURE  SATISFIES  THE  FOLLOWING  REQUIREMENTS: 
if  SEND  GEN  CODE  =  TRUE  then 
SEND  REP  SEQUENCE; 
elsiT  CAl_CODE  s  TRUE  then 
SEND  CAN_SEQUENCE; 

—  end  i?; 

—  end  if; 

if  REP_CODE  =  TRUE  and  CAN  CODE  =  TRUE  then 
THREE_RPT_COUNTER  :s  THREE  RPT  COUNTER  +  1; 
if  ACK1  =  TRUE  then  ~  “ 

ACK1  : =  FALSE; 

-  end  if; 

if  ACK2  =  TRUE  then 
ACK2  : =  FALSE; 

—  end  if; 

if  RT  RECD  CODE  =  TRUE  then 
RT_RECD_C(5DE  :  =  FALSE; 

—  end  if; 

if  STOP_RECD_CODE  =  TRUE  then 
STOP_RECD_CODE  :s  FALSE; 

—  end  if; 

START_REPLY_TIMER ; 

— else 

SEND_START_SEQUENCE ; 

—  end  if; 

TCC  TO  SEND  :=  FALSE; 

SENE_GEN_CODE  : =  FALSE; 
end  if; 

end  SEND_TCC_SEQUENCE; 

EOT.. 


1 


A5426 

THE  PURPOSE  OF  THIS  ROUTINE  IS  TO  DESCRIBE  THE  REQUIREMENTS 
FOR  THE  TRANSMISSION  OF  THE  TEXT  PORTION  OF  A  MESSAGE 
AS  DESCRIBED  IN  THE  FOLLOWING: 

MANUAL  PARAGRAPH (S) 

DCAC  370-D175-1  11-24,25 

01/19/82 

procedure  SELECT__ACKNOWLEDGEMENT_RESPONSE  is 
begin 

CAN_CODE  :=  TRUE; 
loop 
loop 

if  PAUSE_GENERATED  =  TRUE  then 
SEND_GEN  CODE  :=  TRUE; 

SEND_DET_CODE  :=  FALSE; 
elsif  SEND  DETECT  GENERATED  =  TRUE  then 
SEND_DETjrODE  :="TRUE; 
end  if; 

if  RCC_TO_SEND  =  TRUE  then 
SEND_RCC_SEQUENCE; 
exit; 
end  if; 

if  REPLY_TIMER_RUNNING  s  TRUE  then 
if  TIMING_REPLY_TO  CAN  then 
REPLY_TO_CAN; 
exit; 

else  if  TIMING_REP  OR  STOP  then 
R  E  PL  Y_TO_R  E  P_0  R_STO  P ; 
exit; 
else 

REPLY_TO_EOM; 
exit; 
end  if; 
end  if; 
end  if; 

if  TCC  TO_SEND  =  TRUE  then 
SEND_TCC~SEQUENCE; 
exit; 
end  if; 

if  STOP  RECD  =  TRUE  then 
— >  STlRT  REPLY  TIMER 
exit; 

elsif  CAN_CODE  s  TRUE  then 
exit ; 

elsif  MESSAGE  CHAR  TO  SEND  \s  TRUE  then 
if  CANTRAN_CMAR_TS_SEND  \s  TRUE  then 
exit; 
end  if; 
end  if; 


connector  2  of  requirements  starts  here 

if  SEND  GEN  CODE  s  TRUE  then 
— >  SETTD  ST  ART  SEQUENCE 
SEND  GEN_CODE  :=  FALSE; 


152 


elsif  SEND_DET_CODE  =  TRUE  then 
exit; 
end  if; 

~>  SEND  A  CHARACTER 
if  LAST_CHAR_OF_EOMS  then 
~>  COMPLIMENT  TRANSMIT  ACK  ALTERNATOR 
— >  SET  ALL  RECEIVE  CODES 
— >  START  REPLY  TIMER 
REPLY_TO_EOM; 

.  exit; 
end  if; 
end  loop; 

if  PREPARE_TO_SEND_NEXT_MESSAGE  =  TRUE  then 
exit; 
end  if; 
end  loop; 

end  SELECT  ACKNOWLEDGEMENT  RESPONSE; 


A543 

THE  PURPOSE  OF  THIS  ROUTINE  IS  TO  TRANSMIT  MESSAGES  AS 
A  FUNCTION  OF  THE  MODE  OF  TRANSMISSION  OF  THE  LINE  IN 
USE.  THIS  REQUIREMENT  IS  CONTAINED  IN  THE  FOLLOWING: 

MANUAL  PARAGRAPH(S) 

TT-B1-1 101-0001A  3.2.1.2.15 

DCAC  370  D175-1  CHAPTER  5 

12/16/81  RCR 

procedure  TRANSMIT_MESSAGE  is 
begin 

case  LINE  TRANSMISSION  TYPE  is 
when  SYNCHRONOUS  => 

if  SYNCHRONOUS_MODE  =  SYNCHRONOUS_BLOCK_BY  BLOCK  then 
—  TRANSMIT  BLOCKED  WHICH  WAS  JUS  FRAMED- 
BLOCK  COUNT  :  =  BLOCK  FRAMED; 

TRANSMIT  SYNCHRONOUS  MESSAGE_BLOCK_BY_BLOCK ; 
elsif  SYNCHRONOUS  MODE  =  SYNCHRONOUS_CONTINUOUS  then 
BLOCK  COUNT  i~  T* 

while- BLOCK  COUNT  <=  NUMBER_BLOCKS  loop 
—  TRANSMIT  BLOCK  INDICATED  BY  BLOCK_COUNT 
TRANSMIT_SYNCHRONOUS_MESSAGE_BLOCK_BY_BLOCK; 
BLOCK_COUNT  : s  BLOCK_COUNT  +  1 ; 
end  loop; 
end  if; 

when  ASYNCHRONOUS  s> 

TRANSMIT  ASYNCHRONOUS  MESSAGE; 
when  OTHERS  =>  ERROR_COffE  :=  INVALID_TRANSMlSSION_CODE 
end  case; 

end  TRANSMIT  MESSAGE; 


Start  of 


UPDATE  Jl 


—  A551 

—  THE  PURPOSE  OF  THIS  ROUTINE  IS  TO  DESCRIBE  THE  REQUIREMENTS 

—  FOR  START  OF  MESSAGE  JOURNAL  ENTRIES  AS  DESCRIBED  IN  THE  FOLOWING 

MANUAL  PARAGRAPH(S) 

TT-B1-1 101 -0001 A  3.2.1.2.14.1.2(a) 

—  12/16/81  RCR 

procedure  START_OF_MESSAGE_OUT_JOURNAL_ENTRY  is 
begin 

OUTGOING_LOG_ENTRY  :=  SOM  OUT_ENTRY ; 

—  CREATE  A  JOURNAL  ENTRY  WHICH  CONTAINS: 

OUTPUT  CHANNEL  ID 

CHANNEL  SEQUENCE  NUMBER,  IF  APPLICABLE 
CHANNEL  MODE  OF  OPERATION 
ROUTING  INDICATOR 
HEADER  INFORMATION 
TIME  SOM  TRANSMITTED 
S&F  ASSIGNED  SERIAL  NUMBER 
end  START_OF_MESSAGE_OUT_JOURNAL_ENTRY ; 

EOT.. 


( 


I 


15^ 


'« 


—  A552 

—  THE  PURPOSE  OF  THIS  ROUTINE  IS  TO  DESCRIBE  THE  REQUIREMENTS 

—  FOR  END  OF  MESSAGE  JOURNAL  ENTRIES  AS  DESCRIBED  IN  THE  FOLOWING: 

MANUAL  PARAGRAPH (S) 

TT-B1-1 101-0001A  3.2.1.2.14.1.2(b) 

—  01/19/82  RCR 

procedure  END_OF_MESSAGE_OUT_JOURNAL_ENTRY  is 
begin 

OUTGOING_LOG_ENTRY  :=  EOM  OUT  ENTRY; 

—  CREATE  A  JOURNAL  ENTRY~WHICH  CONTAINS: 

ENTRY  IDENTIFICATION 
OUTPUT  CHANNEL  ID 
TIME  OF  TRANSMISSION 
CHANNEL  SEQUENCE  NUMBER 
DESTINATIONS  FOR  THIS  MESSAGE 
S&F  ASSIGNED  SERIAL  NUMBER 
BLOCK  COUNT 

end  END_OF_MESSAGE_OUT_JOURNAL_ENTRY ; 

EOT.. 
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—  A553 

—  the  purpose  of  this  routine  is  to  describe  the  requirements 

—  FOR  CANCEL  MESSAGE  JOURNAL  ENTRIES  AS  DESCRIBED  IN  THE  FOLOWING 

MANUAL  PARAGRAPH(S) 

TT-B1-1 101-0001A  3.2.1.2.14.1.2(c) 

—  01/19/82  RCR 

procedure  CANCEL_MESSAGE_OUT_JOURNAL_ENTRY  is 
begin 

OUTGOING_LOG_ENTRY  :=  CANCEL  OUT_ENTRY; 

—  CREATE  A  JOURNAL  ENTRY  WHICH  CONTAINS: 

CHANNEL  ID  AND  CSN 
CHANNEL  MODE  OF  OPERATION 
TIME  OF  CANCELLATION 
REASON  FOR  CANCELLING 
ROUTING  INDICATORS  OF  MESSAGE 
SAF  MODULE  ASSIGNED  SERIAL  NUMBER 
— —  BLOCK  COUNT 

end  CANCEL  MESSAGE  OUT  JOURNAL  ENTRY: 


THE  PURPOSE  OF  THIS  ROUTINE  IS  TO  DESCRIBE  THE  REQUIREMENTS 
FOR  SCRUBBED  MESSAGE  JOURNAL  ENTRIES  AS  DESCRIBED  IN  THE  FOLOWING 
MANUAL  PARAGRAPH(S) 

TT-B1-1 101-0001A  3.2.1.2.14.1.2(d) 

01/19/82  RCR 

procedure  SCRUBBED_MESSAGE_OUT_JOURNAL_ENTRY  is 
begin 

OUTGOING_LOG_ENTRY  :=  SCRUB_ENTRY ; 

—  CREATE  A  JOURNAL  ENTRY  WHICH  CONTAINS: 

CHANNEL  ID  AND  CSN 
CHANNEL  MODE  OF  OPERATION 
TIME  SCRUBBED 

S&F  MODULE  ASSIGNED  SERIAL  NUMBER 
ROUTING  INDICATORS  OF  MESSAGE 
REASON  FOR  SCRUB 
BLOCK  COUNT 

if  MESSAGE_OUT_SENT_TO_OVERFLOW  then 
—  INCLUDE  OVERFLOW  MESSAGE  SERIAL  NUMBER 
end  if; 

if  MESSAGE  SENT_TO_INTERCEPT  then 
—  INCLUDE  INTERCEPT  MESSAGE  SERIAL  NUMBER 
end  if; 

end  SCRUBBED  MESSAGE  OUT  JOURNAL  ENTRY: 


—  A556 

—  THE  PURPOSE  OF  THIS  ROUTINE  IS  TO  DESCRIBE  THE 

—  REQUIREMENTS  FOR  JOURNAL  ENTRY  CREATION  AS  A  RESULT 

—  OF  MESSAGE  OUTPUT  PROCCESSING  AS  DESCRIBED  IN  THE 

—  FOLLOWING: 

—  MANUAL  PARAGRAPH (S) 

—  TT-B1 -1 1 01 -0001 A  3.2.1.2.14.1.2 

—  12/15/81 

procedure  UPDATE_JOURNAL  is 

begin 

case  JOURNAL  ENTRY_TYPE  is 
when  START~OF_MESSAGE_CODE  => 

START  OF  MESSAGE_OUT  JOURNAL_ENTRY ; 
when  ENEJDF  MESSAGE  COfiE  => 

END_0F_ME3SAGE_0UT  JOURNAL  ENTRY; 
when  CANCEL_MESSAGE_CODE  => 

CANCEL_MESSAGE_OUT_JOURNAL_ENTRY; 
when  SCRUBBED_MESSAGE  CODE  => 

SCRUBBED  MESSAGE  OUT  JOURNAL_ENTRY ; 
when  CANTRIn_MESSA5e  CUDE  => 

CANTRAN_MESSAGE_OUT_JOURNAL_ENTRY; 
end  case; 

end  UPDATE_JOURNAL; 


DATA  DICTIONARY 
FEBRUARY  8,  1982 

ACKNOWLEDGMENT 

ACP_FMT_LN_1 

ACP_FMT__LN_2 

AC  P_FMT_LN_3 

ACP_FMT_LN_1 5 
ACP_HEADER 

ACP_MESSAGE 

ACP_PILOT 

ACP_SSN 

ARRI 


=  [ACK  REQUEST! ACK  RECEIVED] 

*  USED  TO  PASS  REQUEST  TO 
SEND  ACK  OR  TO  PASS  ACKS 
WHICH  HAVE  BEEN  RECEIVED  TO 
THE  TRANSMIT  FUNCTION  » 

=  ’VZCZC'  +  ICD  +  FIGS 
+  ICSN  +  LTRS  +  <5>(’b‘) 

+  ([UU1HH])  +  LN  END 

•  TRANSMISSION  IT5ENT  (TI)  » 

=  (BELL  SIGNAL)  + 

DOUBLE  PRECEDENCE  PROSIGN  + 
<.  .X  »¥»  +  RI)  +  En_end 

s  *DEb'  +  RI  +  »b'  +  ('#*)  + 
ACP  SSN  +  [ DATE_TIME ! DATE  + 
»/»  +  TIME  +  » Z  * ]  + 

LN_END 

=  (CORRECTION)  +  (EOM_SEQ) 
s  ACP  FMT  LN  1  +  ACP  FMT  LN  2 

+  aEp  fMt  Tn  3  +  (Emt  In  ?) 

+  (FM7  LN“5)  +  (FMT  L¥  67  + 
(FMT  LN  77  +  (FMT  LN  87  + 
(FMT“LN_9)  +  (FMT_LN_10) 

=  ACP_HEADER  +  SEPARATOR  + 
BODY  +  SEPARATOR  + 
ACP_TRAILER 

r  ACP  FMT  LN  2  +  FMT  LN_4  + 
ICD  +  IESN"+  <5>( '¥’)  + 
(CUUIHH3)  +  LN_END 

=  <3> ( DIGIT)  +  (LETTER) 

»  ORIGINATING  STATION 
SERIAL  NUMBER  * 

=  <7>(C ’b* ! LETTER  3) 

s  (FMT  LN  14)  + 

ACP  EMT  LN  15 


ACP  TRAILER 


DATA  DICTIONARY 
FEBRUARY  8,  1982 

ASN 

ASYNCHRONOUS_MODE 

ASYNCH_RECEIVE__CONTROL_CHAR 

BELL_SIGNAL 

BODY 

BP 

BP  CALC 


CAN_CODE 

CANCEL  OUT  ENTRY 


CANCEL  REASON 


=  TBD 

*  ASSIGNED  SER  NO 

USED  TO  DIFFERENTIATE  A 
PARTICULAR  MESSAGE  FROM  ALL 
OTHER  SYSTEM  MESSAGES  * 

=  [  NORMAL  !  STEPPED  ] 
•TRANSMISSION  METHOD* 

=  [ACK  HACK  2  |  STOP  !  RT] 

*  CHlRACTEl  » 

=  FIGS  +  <5>( * J ' )  + 

<5>( ’S' )  +  LTRS 

S  <0.  .XCHARACTER) 

*  TEXT  OF  MESSAGE  * 

s  CHARACTER 

»  BLOCK  PARITY  OF  MESSAGE 
FORMED  BY  THE  BINARY 
ADDITION  WITHOUT  CARRY 
(XOR)  OF  THE  BITS  IN  EACH 
ROW  OF  A  BLOCK  AND  PLACED 
IN  THE  LAST  FRAMING 
CHARACTER  OF  A 
SYNCHRONOUS  MESSAGE.  * 

s  *  CUMULATIVE  BLOCK  PARITY 
CALCULATION  DURING  THE 
SYNCHRONOUS  RECEIVE 
PROCESS  STARTING  WITH  THE 
2ND  FRAMING  CHAR  AND 
ENCING  WITH  ”ETX"  OR 
" ETB”  * 

=  [TRUE  |  FALSE  ] 

=  OCD  +  OCSN  +  DATE__TIME  + 

+  ASN 

+  CHANNEL  MODE 
+  CANCEL_lEASON 
+  <1 .  .50XRI) 

+  NUMBER  BLOCKS 
»  MADE  WHEN  A  CANCELLATION 
IS  TRANSMITTED  « 

=  TBD 


DATA  DICTIONARY 
FEBRUARY  8,  1982 


■CANCEL  REC  ENTRY 


CANTRAN_CHAR_TO_SEND 
CANTRAN  REC  ENTRY 


CANTRAN  OUT  ENTRY 


OxA4234  CARD_CHECKED_MESSAGES 

I1A4235 

I1A4236 

CARD  FMT  LN  2 


C1A4234  CARD  INFO 


CARD  MESSAGE 


01A4235  CARD  TRANSLATED  MESSAGES 

01A4236 

IxA4237 

CHANNEL  MODE 


s  ICD  +  ICSN  +  DATEJTIME  + 
CHANNEL  MODE  +  NUHBER_BLOCKS 
+  ASN 

»  MADE  WHEN  A  CANCEL  IS 
RECEIVED  » 

=  [  TRUE  |  FALSE  ] 

s  ICD  +  ICSN  +  DATE  TIME  ♦ 
CHANNEL  MODE  +  NUHBER_BLOCKS 
+  ASN 

*  MADE  WHEN  A  CANTRAN  IS 
RECEIVED  * 

s  OCD  +  OCSN  +  DATE_TIME  + 
CHANNEL  MODE  +  NUMBER_BLOCKS 
+  ASN  ” 

«  MADE  WHEN  A  CANTRAN  IS 
TRANSMITTED  * 

s  MESSAGE  +  MCB  + 

TRANSLATION  PAIR 


=  PRECEDENCE  +  LMF_PAIR  * 
CLASS  +  CIC  CAI  +  + 

OSRI  +  OSSN  +  *b'  + 

DATE  TIME  +  »b'  + 
RECOl?D_COUNT  +  •-'  + 

+  RI  +  <0.  .49XRI)  + 

t  t 
• 

=  <28> ( [FROM  CARD ! TO_CARD ! NO] ) 
»  TABLE  KEYED  BY 
TRANSLATION  PAIR. 

( CA | CT ' CT '  7>  FROM_CARD, 

TC  !  QC  i  AC  !  FC  =>  TOWARD, 
OTHERS  =>  NO)  * 

=  (JANAP_FMT  LN_1 )  + 

(JANAP  PILUT)  + 

[CARD  FMT  LN  2  + 

<1 . .5^0>(<80>(CHARACTER))  + 
EOT_CARD|SINGLE_CARD] 

=  MESSAGE  +  MCB  + 

TRANSLATION  PAIR 


=  [  1 !  2 !  3  !  4  !  5  ] 
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DATA  DICTIONARY 
FEBRUARY  8,  1982 


OxA423 1 
I1A4232 
I1A4233 

01A4232 

01A4233 

IxA4234 

C1A4231 


C1A41 1 


01A41 1 
I1A412 


CHAR  =  SEE  CHARACTER 

CHAR_CHECKED_MESSAGE  =  MESSAGE  +  MCB  + 

TRANSLATION  PAIR 


CHAR__TRANSLATED_MESSAGE 

CHAR_SET_INFO 

CHARACTER 

CHARACTER_PARITY 

CHNL_DES 

CIC_CAI 

CLASS 


CLASS__X5 

COLLECTIVE_RI_TABLE 
COLLECTIVE  ROUTED  MESSAGES 


=  MESSAGE  +  MCB  + 
TRANSLATION  PAIR 


=  <28>( C ITA i ASCII ! NO] ) 

*  TABLE  KEYED  BY 
TRANSLATION  PAIR. 

(CT|CT* ! AT|IT»  =>  ITA, 

TC i TA i QC i QA i FC i FA  =>  ASCII, 
OTHERS  =>  NO)  * 

=  LEVEL  +  [TEXT_CHARACTER  I 
CONTROL_CHARACTER] 

=  ASCII  +  [EVEN! ODD] 

=  <3>(LETTER) 

*  CHANNEL  DESIGNATOR  » 

s  <3>(LETTER)  +  [LETTER ! DIGIT] 

*  CONTENT  INDICATOR  CODE  ~ 
CONTENT  ACTION  INDICATOR  * 

s  [M|A!T!S!C!R|E!U] 

*  CLASSES  ARE: 

M  —  DSSCS 

A  —  SPECAT 
T  —  TOP  SECRET 
S  —  SECRET 
C  —  CONFIDENTIAL 
R  —  RESTRICTED 
E  —  EFTO 

(ENCRYPT  FOR 
TRANSMISSION  ONLY) 

U  —  UNCLASSIFIED  « 

=  <5>(CLASS) 

=  <0 . . 200>( RI  + 

<1 . .50>(LINE_N0) ) 

=  MESSAGE  +  MCB  + 

<1  .  .50X0UTPUT  LINE  NUMBER) 


DATA  DICTIONARY 
FEBRUARY  8,  1982 


COMMUNITIES_SERVED 
CONTROL  CHARACTER 


CONTROL_CODE 

03A31 

01A314 

01A315 

01A31A1 

01A3143 

01A3144 

01A3153 

01A3156 

01A3157 


CORRECTION 

01A121  CURRENT_LIST 
I1A122 

DATA_MODE 
DATA  STATE 


DATE 

DATEJTIME 

OxA4224  DELS  CHECKED  MESSAGE 
I1A4225 

C1A4224  DELS  INFO 


s  (R)  +  (U)  +  (Y) 

=  [ASCII. NUL. .ASCII. USi 
ASCII. DEL! ITA.LTRSS 
ITA.FIGS! ITA.CRIITA.CR! 
ITA.LFIITA. BLANK] 

=  [SEND  STOPIRT  RCVD I SEND_RT ! 
EOMS  RCVDiST^P  RCVD! 

ACK  T  RCVD | ACK  2  RCVD| 
CAN^ElT  RCVD ! REILLY  RCVD! 

SEND  RMS  SEND  ACKiSEND  NAK! 
WBT  T?CVD !  RM  TTCVDiNAKjfCVDi 
INVlLID  RCVlii 
INVALID  CHAR  ! 

ENQUIRY  RCVD] 

•  USED  TO  SIGNAL  CONDITIONS 
TO  GENERATE  CONTROL_ 
CHARACTERS'"  * 

s  »C'  +  < . .> (CHARACTER)  + 
LN_END 

=  TBD 


s  FORMAT  +  LEVEL 
=  [TRUE [FALSE] 

*  TRUE,  SYNCHRONOUS  RECEIVER 
WILL  ACCEPT  TEXT  CHARACTERS 
FALSE,  WILL  ACCEPT  CONTROL 
AND  SYNC  CHARACTERS  * 

s  <2> ( DIGIT) 

*  DAY  OF  MONTH  * 

=  <7>DIGIT 

*  JULIAN  DATE  PLUS 
ZULU  TIME  * 

s  MESSAGE  +  MCB  + 
TRANSLATION_PAIR 

=  <28>( [YES ! NO] ) 

*  TABLE  KEYED  BY 
TRANSLATION_PAIR 
(AC ! AT ! AT'  =>  YES, 

OTHERS  =>  NO  )  » 


OXA4237 

I1A4238 
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DIRECTION 

DOUBLE_PRECEDENCE_PROSIGN 

ECSN 

EOM  IN  ENTRY 
•  *” 

EOM_OUT_ENTRY 

EOM_SEQ 

EOM_VALIDATION 

EOT_CARD 

ERROR  CODE 


FILL  CHECKED  MESSAGE 


=  (INPUT)  +  (OUTPUT) 

*  BOTH  SET  IMPLIES  2-WAY  * 

S  <2>( PRECEDENCE) 

*  USED  IN 
ACP_FMT_LN_2  * 

=  <3>(DIGIT) 

«  EXPECTED  CHANNEL 
SEQUENCE  NUMBER  » 

s  ICD  +  ICSN  +  DATE  TIME  ♦ 

ASN  +  NUMBER  BLOCKS  + 

CHANNEL  MODE 
«  MADE  tfHEN  EOM  IS 
RECEIVED  • 

=  OCD  +  OCSN  +  DATE  TIME  + 

ASN  +  <1 .  .50XRI)  + 

NUMBER  BLOCKS 
»  MADE” WHEN  EOM  IS 
TRANSMITTED  * 

=  <2>(CR)  +  <8>(LF)  + 

<4> ( ’ N  * )  +  <8>(LTRS) 

=  •#'  +  <4> ( DIGIT) 

=  PRECEDENCE  +  LMF  PAIR  + 

CLASS  +  CIC_CAI  +  'b'  +  OSRI 
+  OSSN  +  'b'  +  DATE_TIME  + 
*b'  +  RECORD_COUNT  +  + 

REDUNDANT_CLASS  + 

<44> ( 'b  ' )  +  <4> ( ' N  ' ) 

*  N'S  START  IN  COLUMN  72  * 

=  [  NO  ERROR  ! 

IN?ALID_LENGTH  ! 
INVALID_LINE  RI  i 
INVALID_LMF  T 
INVALID  RI  SECURITY  I 
BAD  BLOlK  lOUNT  i 
INVlLID  LINE  TRANSMISSION 
TYPl  ] 

*  CUDES  TO  INDICATE  ERROR 
CONDITION  * 

=  MESSAGE  +  MCB  + 

TRANSLATION  PAIR 
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C1A4237 

FILL_INFO 

<28> ( [YES ! NO] ) 

*  TABLE  KEYED  BY 

TRANSLATION  PAIR 
( C A !  CT !  CT '  !  AT !  AT '  i  QA  |  FA  = 
YES,  OTHERS  =>  NO)  * 

FIRST_LMF_CHARACTER 

= 

[B|D{i:SJC!A!T!R!QiF] 

FMT_LN_4 

s 

OP  SIGNAL  +  CLASS  X5  + 
<07.XCHARACTER)  +  LN_END 

FMT_LN__5 

PRECEDENCE  + 

Cb'  +  PRECEDENCE) 

+  ’b’  +  DATE  +  TIME  +  »b'  + 
MONTH  +  'b*  +  YEAR 
+  <0. . >( CHARACTER)  +  LN_END 

FMT_LN_6 

s 

•FMb’  +  <.  .X CHARACTER)  + 
LN_END 

FMT_LN_7 

= 

’TOb '  +  <.  .X CHARACTER)  + 
LN_END 

FMT_LN_8 

s 

’INFOb'  +  <. .>( CHARACTER)  + 
LN_END 

FMT_LN_9 

s 

•XMTb*  +  <.  .X CHARACTER)  + 
LN_END 

FMT_LN_10 

: 

<.  .X CHARACTER)  +  LN_END 

FMT_LN_1 4 

= 

<.  .X CHARACTER)  +  LN_END 

} 

FORMAT 

= 

[JANAP  128  I  ACP  127] 

*  MESSlGE  FORMAT  * 

0xA4221 

IA14222 

I1A4223 

FORMAT_CHECKED_MESSAGE 

= 

MESSAGE  +  MCB  + 
TRANSLATION_PAIR 

01A4222 

01A4223 

IxA4224 

FORMAT_CONVERTED_MESSAGE 

s 

MESSAGE  +  MCB  + 
TRANSLATION_PAIR 

C1A4221 

FORMAT_INFO 

<28> ( [TO  1 27 ! TO  1 28 ! NO  3 ) 

»  TABLE  KEYED  BY 

TRANSLATION  PAIR. 

( CT ' ! AT ’ ! TT ' ! RT ' ! QT '  => 

TO  127,  FC  j  FA ! FT  => 

TO  128,  OTHERS  =>  NO)  * 
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01A412 

I1A413 

I3A3 

03A431 

01 A 1 33 1 
I1A1332 

02A43 

01A432 


HEADER 

ICD 

ICSN 

INCOMING_LOG_ENTRY 

INDIVIDUAL_ROUTED_MESSAGES 

INPUT_STREAM 

in  ;rcept_in_entry 

INTERCEPT_LIST 

INTERCEPT_LOG_ENTRY 

INTERCEPT_OUT_ENTRY 

< 

INVALID_CHAR 

JANAP_FMT_LN_1 

JANAP  FMT  LN  2 


a  [JANAP  HEADER', 

CARD  FMT  LN  2! 

SINGLE  ClRDT 
ACP_HEXDER] 

a  <3>( CHARACTER) 

*  INCOMING  CHANNEL  ID  * 

a  <3>(DIGIT) 

*  INCOMING  CHANNEL  SER  NO  « 

a  [SOM  IN  ENTRY! 

EOM  TN_SNTRY! 

REJlCT  ENTRY! 

CANCEL  REC  ENTRY! 
CANTRAS_REC_ENTRY] 

a  MESSAGE  +  MCB  + 

<1 . .50>(OUTPUT_LINE  NUMBER) 

a  < . . > ( BIT) 

a  HEADER  +  ASN  +DATE  TIME  + 
MCB  +  NUMBER  BLOCKS 

*  MADE  WHEN  MESSAGE 
RECEIVED  FORM  INTERCEPT  * 

a  TBD 


a  [INTERCEPT_IN  ENTRY  ! 

intercept_ouT_entry] 

a  ASN  +  HEADER  +  DATE_TIME  + 

< 1 . . 50> ( RI )  +NUMBER_BLOCKS 
«  MADE  WHEN  MESSAGE  SENT 
TO  INTERCEPT  * 

a  ASCII.  BEL(  16//07#) 

a  'VZCZC*  +  ICD  +  FIGS 
+  ICSN  +  LTRS  +  LN  END 
«  TRANSMISSION  IDEMT  (TI)  * 

a  PRECEDENCE  +  LMF_PAIR  + 

CLASS  +  CIC  CAI  +  ' b ’  +  OSRI 
+  OSSN  +  ' b '  +  DATE  TIME  + 

+  REDUNDANT  CLASS  + 

+  RI  +  <0.  .49XRI)  + 

' . '  +  LN  END 
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JANAP_FMT_LN_3 

JANAP_FMT_LN_15 

JANAP_FMT_LN_16 

JANAP_HEADER 

JANAP_MESSAGE 

JANAP_PILOT 

JANAP_TRAILER 

LEVEL 

LINE  AVAILABLE 


' DEb  *  +  RI  +  OSSN  + 

DATE_TIME  +  LN__END 

(CORRECTION)  + 
(EOM_VALIDATION) 

EOM_SEQ 

(JANAP_FMT  LN  1)  + 
(JANAP_PILOT)  + 

(JANAP  FMT  LN  3)  + 

(JANAP  FMT  LN  3)  + 

(FMT  LN  4)  +  TFMT  LN  5)  + 
(FMT“LN“6)  +  (FMT“LN“7)  + 
(FMT  LN  8)  +  (FMT  LN  9)  + 
(FMT_LN_10) 

[ CARD_MESSAGE ! TTY_MESSAGE ] 

PRECEDENCE  +  LMF_PAIR  + 

CLASS  +  CIC  CAI  +  *b '  +  OSRI 
+  OSSN  +  'b*  +  DATE_TIME  + 

+  REDUNDANT  CLASS 
+  RECORD  COUNT  + 

’  —  •  +  RI  +  <0 .  .  49>  ( RI )  + 

* . *  +  LN  END 

*  RECORD_COUNT  MUST  BE  RI  * 

(FMT_LN  14)  + 

(JANAP  FMT_LN_1 5 )  + 
JANAP_FMT_LN_T6 

[518] 

*  5  LEVEL  =  ITA_#2 
8  LEVEL  =  ASCII  * 

TBD 


0 

B 


DATA  DICTIONARY 
FEBRUARY  8,  1982 


C1A42  LINE  DATA 

C1A43 

C1A421 

C1A431 


01A421  LMF_MESSAGES 

I1A422 

I1A4221 

LMF  PAIR 


LN_END 

I2A 1  LOG_DATA 

I2A2 

I2A12 

I2A 1  3 

I2A121 

I2A132 

I2A133 

1 1 A 1 321 

I1A1331 

03A3  LOG_ENTRY 

03A4 

03A5 


CHANNEL  MODE  + 

[SYNCHRONOUS  MODE  j 
ASYNCHRONOUl_MODE  ]  + 

DATA  MODE+LOGICAL  LINE  NO  + 
PHYSICAL  LINE  NO 
LOOP_SPEfD  + 

COMMUNITIES  SERVED  + 

(FIRST  LINK!  + 
MAX_NO~RIS_PER  DELIV  + 
(SOM_SlQ)  +  DIRECTION  + 

ECSN  +  OCSN  +  CHNL  DES  + 

( RCSN)  + 

(NO  STOP  BITS)  + 

(SECURITY  PROSIGN)  + 
(SPEC_TERH)+ 

LINE_AVAILABLE 

MESSAGE  +  MCB  + 

TRANSLATION  PAIR 


FIRST  LMF  CHARACTER  + 

seconO_lmF_character 

*  LEGAL  PAIRS  ARE: 

TT  TA  TC  AT  AA  AC 
CC  CA  CT  RT  SC  BB 
CC  II  QT  FT  * 

<2>(CR)  +  LF 

<0.  .XLOG  ENTRY) 


[INCOMING_LOG_ENTRY  ! 
OUTGOING_LOG_ENTRY  j 
OVERFLOW  LOG  ENTRY  ! 
INTERCEPT  LOG  ENTRY  ! 
SVC  GEN  ElTRYT 


LOG_ENTRY_INFO 
MAX  NO  RIS  PER  DELIV 


=  INCOMING_LOG  ENTRY 
*  EXCEPT  CANTRAN  * 

=  [1  16! 1 4 ! 50 | 500 ] 
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MCB 


MESSAGE 


IXA5426  MESSAGE  CHAR  TO  SEND 


I1A33  MESSAGE  DATA 
I1A331 

02A3321  MESSAGE  DATA  A 

04A3321 

I1A3322 

I1A3323 

03A3331 

I1A3332 

01A3341 

I1A3342 

03A3351 

I1A3352 

01A3322  MESSAGE  DATA  B 

I2A3323 

03A3332 

1 1 A  33  3  3 

03A3342 

04A3342 

I1A3343 

I1A3344 

03A3352 

1 1 A  3  35  3 


=  *SOH»  +  SELECT_CHARACTER 
PRECEDENCE  +  LMF_PAIR  + 
CLASS  +  CIC  CAI  +  'b'  + 
OSRI  +  OSSN  +  » b ’  + 

DATE  TIME  +  NUMBER  BLOCKS 
SOHjFlME  +  TRIP  +  3DC  + 
TDW  +  SDO  +  TASC  + 

SASC  +  ARRI  +  SMRI  +  ICD 
TMID  +  ICSN  +  ' ETB '  +  BP 

-  [ JANAP_MESSAGE  I 
ACP_MESSAGE] 

=  [  TRUE  !  FALSE  ] 

*  CHARACTER  AVAILABILITY 

=  MESSAGE 


=  MESSAGE 
»  NOTE:  ON 

MESSAGE_DATA_A  THROUGH 
MESSAGE_DATA_D, 
LEXICALLY  GREATER 
DISTINGUISHING  LETTERS 
INDICATE  PROGRESSIVELY 
MORE  COMPLETE 
VALIDATION  * 


=  MESSAGE 
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01A3323  MESSAGE  DATA  C  =  MESSAGE 

04A3323 

I1A3324 

I1A3325 

03A3333 

I1A3334 

01A3343 

I2A3344 

03A3353 

I1A3354 

01A3344  MESSAGE  DATA  D  =  MESSAGE 

04A3344 

I1A3345 

I1A3346 


MESSAGE_CANCELLED 
MESSAGE_IN_TRANSMISSION 
MESSAGE  MODE 


=  [  TRUE  !  FALSE  ] 

=  [  TRUE  !  FALSE  ] 

=  [  JANAP  128  !  ACP_1 27 
ACp_127_M°D  ] 

*  FORMATTING  CODE  * 


02A332  MESSAGE_REJECTION 

02A333 

02A334 

02A335 

03A3321 

03A3322 

03A3323 

02A3324 

02A3325 

02A3331 

02A3332 

02A3333 

02A3334 

02A3342 

03A3343 

03A3344 

02A3345 

02A3345 

02A3351 

02A3352 

02A3353 

02A3354 

04A33 

MONTH 


=  SEND  RM 

*  USED  TO  SIGNAL 
MESSAGE  REJECTION 
TO  GENERATE  CONTROL 
CHARACTER  FUNCTION  » 


=  [JANIFEB  .  .  .  DEC] 

*  3  LETTER  MONTH  NAMES 
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03A1 

02A13 

01A133 

01A1332 

I1A4 

NEW_INTERCEPT_FILE 

<0.  .XMESSAGE  +  MCB) 

04A1 

02A13 

01A132 

01A1322 

I2A3 

NEW_OVERFLOW_FILE 

<0.  .XMESSAGE  +  MCB) 

NEW_ROUTE_LINE 

= 

ROUTE_LINE 

NO_ERROR 

»  NO  ERROR  DETECTED  * 

NUMBER_BLOCKS 

s 

<3X  DIGIT) 

OASC 

= 

[  ’b ' iLETTER] 

OCCUPANCY_LEVEL 

s 

[0.. 100] 

*  %  INTRANSIT  STORAGE  * 

OCD 

s 

<3X  CHARACTER ) 

*  OUTGOING  CHANNEL  ID  « 

OCSN 

s 

<3>( DIGIT) 

*  OUTGOING  CHANNEL  SER  NO 

OP_SIGNAL 

5 

[  ' ZNY ' ! ' ZNR 1 ] 

01A2 

C 1  A3 

C1A4 

C3A5 

OPERATOR_COMMAND 

— 

[REINTRODUCE  COMMAND! 
TRACE  COMMAND! 

RETRIEVE  COMMANP! 

RECOVERY  COMMAND! 

THROTTLE  COMMAND! 

DRY  UP_CT5MMANDi 
CHANNEL_COMMAND i 
TAPE_COMMAND| 
STATISTICS_COMMAND ! 

MESS AGE_CONTROL_COMM AND j 
DESTRUCT_COMMAND| 

ROUTING  COMMAND! 

EQUIPMETfT_.COMMAND! 

TABLE_COMMAND] 

01A2  OPERATOR  PRINTOUTS  =  TBD 
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OSRI 

RI 

*  ORIGINATING  STATION 
ROUTING  INDICATOR.  * 

OSSN 

= 

<4>(DIGIT) 

«  ORIGINATING  STATION 
SERIAL  NUMBER  * 

OUTGOING_LOG_ENTRY 

[SOM  OUT  ENTRY! 

EOM  UUT  ENTRY! 

CANCEL  EUT  ENTRY! 

scrub  Entry! 
cantrXn_out_entry] 

OUTPUT_LINE_TYPE 

= 

[  TRIBUTARY  !  TRUNK  ] 

OUTPUT_LINE_NUMBER 

S 

[1..50] 

02A4 

01A43 

01A433 

I1A5 

OUTPUT_SELECTED_MESSAGE 

MESSAGE  +  MCB 

02A5 

OUTPUT_STREAM 

= 

< . . >( BIT) 

OVERFLOW_IN_ENTRY 

• 

HEADER  +  ASN  +  DATE  TIME 
MCB  +  NUMBER  BLOCKS 
»  MADE  WHEN  MESSAGE 
RECEIVED  FORM  OVERFLOW  » 

01A1321 

1 1 A 1 322 

OVERFLOW_LIST 

s 

TBD 

OVERFLOW_LOG_ENTRY 

= 

[OVERFLOW  IN  ENTRY! 
OVERFLOW_OUT_ENTRY] 

OVERFLOW_OUT_ENTRY 

ASN  +  HEADER  +  DATE  TIME 
NUMBER  BLOCKS 
*  MADE  WHEN  MESSAGE  SENT 
TO  OVERFLOW  * 

IxA5426 

PAUSE_GENERATED 

s 

[  TRUE  !  FALSE  ] 
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PRECEDENCE 


PREPARE  TO  SEND  MESSAGE 


I3A1  PROGRAM_LOAD__FILE 

04A2  PROGRAM_LOAD_INSTRUCTIONS 

IXA5426  RCC_TO_SEND 
RCSN 


RECORD  COUNT 


03A1  RECOVERED  MESSAGES 

01A12 
01A121 
1 1  A3 

02A11  RECOVERY  COMMAND 

C1A12 

C1A121 

REDUNDANT_CLASS 

04A3  REFERENCE^COPY 

1 1 A 1  REFERENCE  DATA 

I1A2 

I1A12 

I1A13  I 

I2A122 

1 1 A 1 3  2 

1 1 A 1 33 

I1A1322 

I1A1332 


r  [WIYIZIOIPIR] 

»  PRECEDENCES  ARE: 

W  —  CRITIC 
Y  —  ECP 
Z  —  FLASH 
0  —  IMMEDIATE 
P  —  PRIORITY 
R  —  ROUTINE  » 

=  [  TRUE  |  FALSE  ] 

«  INDICATES  COMPLETION 
OF  MESSAGE  * 

=  TBD 

=  TBD 

=  [  TRUE  !  FALSE  ] 

=  <3>DIGIT 

*  REJECTED  CHANNEL  SEQUENCE 
NUMBER  « 

=  [<4>(DIGIT) | 'MTMS* | ’PLTS’ | 
RI] 

»  RI— MS  RI  (4  LETTERS)  * 

=  <0  .  .  XMESSAGE  +  MCB) 


=  TBD 


=  <4> ( CLASS) 

=  MESSAGE  +  MCB 
=  <0.  .XMESSAGE  +  MCB) 
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01A422 

REFORMATTED_MESSAGE 

2 

MESSAGE  +  MCB  + 

01A4225 

I1A423 

I1A4231 

• 

TRANSLATION_PAIR 

C2A4 

C2A43 

REINTRODUCE_COMMAND 

= 

TBD 

C2A432 

REJECT__ENTRY 

DATE  TIME  +  REJECT  REASON  + 
ASN  +  CHANNEL  MODE  +  ICD  + 
ICSN 

«  MADE  WHEN  A  MESSAGE  IS 
REJECTED  BY  THE  SWITCH  * 

REJECT_REASON 

= 

TBD 

REPLY 

PROTOCOL  COMMAND 
»  SENT  BY  THE  TRANSMITTING 
STATION  TO  DIRECT  THE 
RECEIVER  TO  SEND  ITS 
CURRENT  STATUS  * 

REPLY_CHARACTER 

s 

ASCII. DC1(16#11#) 

REQUEST_FOR_ANSWER_CHAR 

s 

[TRANSMIT  CONTROL  CHAR  ! 
BP_CHAR  T 

RI 

s 

[RjUiY]  +  <3 • • 6> (LETTER) 

C1A412 

RI_LINE_TABLE 

s 

<0.  .  1500>(RI+LINE_N0) 

C1A41 

C1A332 

ROUTE_DATA 

s 

TBD 

C1A333 

C1A334 

C1A335 

C1A3323 

C1A3332 

C1A3344 

C1A3352 

ROUTE_LINE 

= 

[JANAP  FMT  LN  2  i 

ACP  FMT  LN  2  T 

CARD  FMT  Li  2] 

C2A4 


ROUTE  LINE  DATA 


TBD 
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01A41  ROUTED  MESSAGE 

01A413 

I1A42 

I1A421 

01A331  ROUTED_MESSAGE_DATA 

02A331 

03A331 

04A331 

I1A332 

I1A333 

I1A334 

I1A335 

I1A3321 

I1A3331 

I1A3341 

I1A3351 

SASC 

IxA5426  SEND_DET_CODE 
IXA5426  SEND_DET_GENERATED 
SCRUB  ENTRY 


SEND_GEN_CODE 

SCRUB_REASON 

SDC 

SDO 

SECOND__LMF_CHARACTER 

SECURITY_PROSIGN 

SELECT__CHARACTER 

SEPARATOR 


=  MESSAGE  +  MCB 

=  MESSAGE 


=  [ ’b • ! LETTER] 

=  [  TRUE  |  FALSE  ] 

=  [  TRUE  |  FALSE  ] 

s  OCD  +  OCSN  +  CHANNEL_MODE  + 
DATE  TIME  +  ASN  + 

SCRUE  REASON  +  NUMBER_BLOCKS 
<1  .  .5EXRI) 

*  MADE  WHEN  A  MESSAGE 
IS  SCRUBBED  * 

=  [  TRUE  !  FALSE  ] 

=  TBD 

=  [ *b' !S|C| PIMIT1A] 

=  [ »b' ! LETTER] 
r  [B|D!I!C|A!T] 

=  [  A !  T !  S  |  C  |  R !  E  i  U  !  M  ] 

=  [AiB!C|D!E!FiG!H! JIKIMlPjS] 

=  »BT*  +  LN  END 
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01A4  SERVICE  MESSAGE_INFO 

02A42 

02A422 

02A4223 

01A5 

01A332 

01A333 

01A334 

01A335 

01A3321 

02A3322 

02A3323 

01A3324 

01A3325 

01A3331 

01A3332 

01A3333 

01A3334 

01A3342 

02A3343 

02A3344 

01A3345 

01A3346 

01A3351 

01A3352 

01A3353 

01A3354 

C2A3 


SVC_MESSAGE_TYPE  + 
MESSAGE  +  <75,  .50>(RI> 
+  (<2>) (ICSN) 


SINGLE  CARD  r  PRECEDENCE  +  LMF_PAIR 

CLASS  +  CIC_CAI  +  ’ b ' 
OSRI  +  OSSN  +  *b»  + 
DATE  TIME  +  »  — '  +  RI 
* . »  +  <4 1 > ( CHARACTER ) 
'N* 

*  FINAL  N  MUST  BE  IN 
COLUMN  80  * 

SMRI  =  <5>(LETTER) 

SOH  TIME  s  DATE  TIME 

*  TIME  OF  RECEPTION  OF 
START  OF  HEADER  » 

SOM  IN  ENTRY  =  CHANNEL_MODE  +  HEADER 

“  ”  DATE  TIME  +  ASN  +  ICD 

ICSN  +  MCB 

*  MADE  WHEN  START  OF 
MESSAGE  RECEIVED  * 


DATA  DICTIONARY 
FEBRUARY  8,  1982 


SOM  OUT_ENTRY  =  OCD  +  OCSN  +  CHANNEL  MODE 

+  <1 .  .50XRI)  +  HEADER 
DATE  TIME  +  ASN 

•  maEe  when  start  of 

MESSAGE  TRANSMITTED  * 


SOM_SEQ 

02A3  SORTED  MESSAGE 

I2A4 

I1A41 

I1A411 

SPEC  TERM 


C1A1  START  COMMAND 
C1A11 

STOP_RECD_CODE 
SVC  GEN  ENTRY 


SVC  MESSAGE  TYPE 


[  FULL  |  ABBREVIATED  ] 
MESSAGE  +  MCB 


[  ACCESS  |  INTERSWITCH  ! 
TECH_CONTROL  ] 

TBD 


[  TRUE  |  FALSE  ] 

HEADER  +  ASN  +  DATE_TIME  + 
MCB  +  NUMBER  BLOCKS 
*  MADE  WHEN  SERVICE  MESSAGE 
IS  GENERATED  * 

[INVALID  RII 
OUTPUT_SCTY_MISMATCH ! 
EXCESSIVE  ROUTING_REJ| 
ILLEGAL  EXCHANGE! 

suspendEdjtransmission I 

SUSPECTED  STRAGGLER! 

OPEN  CSN ! 

INPUT  SCTY  MISMATCH! 

INVALID  SCTY  FIELD! 

INVALID  HEADfR  RE J ! 
INVALID_HEADER_ACCi 
HI  PREC  ACC! 

INVALID  RI  FIELD! 

ALL_RI_lNVlLID! 

INVALID_TI_REJ! 

INVALID  TI_ACC! 
TWO_CONSEC_SOM ! 
INVALID_EOM_REJ! 

INVALID  EOM  ACC! 

INCORRECT  CSN! 

INVALID  BlOCK  COUNT! 

traffic_checkT 

NO  EOM] 
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SYNCH_RECEIVE_CONTROL_CHAR 

— 

[ACK  1  !  ACK  2  !  NAK  J  RM  | 
WBT  ]  *  CHARACTER  » 

SYNCHRONOUS__MODE 

s 

[BLOCK  BY  BLOCK  i 

CONTlfiUOTJS] 

03A2 

TABLE_CHANGES 

s 

TBD 

01A1 

01A11 

TABLE_INITIALIZATION 

s 

TBD 

TASC 

S 

[  'b* iLETTER] 

IxA5426 

TCC_TO_SEND 

s 

[  TRUE  !  FALSE  ] 

TDW 

s 

<12>(CHARACTER) 

TEXT_CHARACTER 

s 

[ASCII. BLANK. .ASCII. TILDE  ! 

*  PRINTABLE  ITA  CHARACTERS] 

THRESHOLD_STATUS 

s 

[UPPER ! UPPER  MIDDLE! 

lower_middleTlow] 

TIME 

s 

<4> ( DIGIT)  +  ’Z’ 

TMID 

= 

<8> (CHARACTER) 

IxA5426 

TIMING_REPLY_TO_CAN 

= 

[TRUE  |  FALSE  ] 

IxA5426 

TIMING_REP_OR_STOP 

= 

[  TRUE  1  FALSE  ] 

01A42 

01A423 

01A4238 

01A431 

02A431 

02A432 

I1A43 

I1A431 

I1A432 

I1A433 

TRANSLATED_MESSAGE 

1 

MESSAGE  +  MCB 

TRANSLATION_PAIR 

s 

LMF_PAIR 

TRANSMIT_CONTROL_CHAR 

= 

[REPLY  CHAR'.CANCEL  CHAR! 
ENQUIRY_CHAR] 

TRIP 

= 

[NICjOIPjRjD] 
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TTY  MESSAGE  =  JANAP_HEADER  +  SEPARATOR  + 

BODY  +  SEPARATOR  + 

JANAP  TRAILER 

*  NOTE :  THE  MAXIMUM  LENGTH 
FOR  A  PHYSICAL  LINE  IN  A 
TTY  MESSAGE  IS  69  PRINTABLE 
CHARACTERS.  SINCE  A  FORMAT 
LINE  MAY  EXCEED  THIS  NUMBER, 
LN  END'S  MUST  BE  ADDED  AS 
REQUIRED  TO  KEEP  EACH 
PHYSICAL  LINE  AT  OR  BELOW 
THIS  LENGTH  * 

03A332  VALIDATED  MESSAGE  =  MESSAGE 

03A333 

03A334 

03A335 

03A3324 

03A3325 

03A3334 

03A3345 

03A3346 

03A3354 

YEAR  s  <2>(DIGIT) 
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Message  Switch  Non-Functional  Requirements 
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} 
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I. 


II. 


Messages  shall  be  accepted  without  regard  to  the 
immediate  availability  of  an  outgoing  line  or  trunk. 
The  receive  module  will  have  the  ability  of 
throttling  incoming  traffic  during  overload  periods 
or  during  periods  of  high  priority  messages.  Two 
types  of  message  codes  will  be  handled. 


A.  ASCII  Code 


(1)  Odd  parity 

(2)  Seven  (7)  bits  plus  parity 

(3)  One  (1)  start  unit  interval 

(4)  One  Cl)  or  two  (2)  stop  unit  interval(s) 

B.  ITA  #2  Code 


( 1 )  5  bits  data 

(2)  One  (1)  start  unit  interval 

(3)  One  (1)  or  two  (2)  stop  unit  interval(s) 


Synchronous  Operation  -  Messages  Received  From  an 
Autodin  Switch 

A.  Block-by-Block 

(1)  75-16000  b/s 

(2)  ASCII  character  set 

(3)  Parity  Criteria  -  (7  bits  for  information 
and  the  8th  bit  for  parity) 

(4)  Bits  received  serially  -  (low  order  bit 
first  and  the  parity  bit  last) 

(5)  Message  characters  will  have  odd  parity 

(6)  Control  characters  will  have  even  parity 

(7)  Modes  I  or  III 

(8)  Acquire  frame  sync,  before  receive 

(9)  A  message  control  block  (MCB)  will  be 
employed  if  the  message  is  via  an 
interswitch  trunk 

(10)  Bit  stream  -  bit  synchronous  where  each 
bit  is  accompanied  with  a  clock  pulse 

(11)  Recognize  accepted  idle  pattern  for 
channel  sync. 

(12)  SOH/STX  characters  of  a  block  stream  will 
be  separated  by  a  syn.  period  from  the 
previous  block. 


o.  Continuous  (block-by-block) 

(1)  SOH/STX  characters  of  a  block  stream  will 
be  contiguous  to  the  block  parity 
character  of  the  previous  block 

(2)  Reception  of  continuous  (block-by-block) 
is  the  same  as  block-by-block  above  except 
for  item  12 

Asynchronous  Operations  Modes  II,  IV  (without 

Automatic  Channel  and  Error  Control) 

A.  ASCII  and  ITA#2  Codes  (Mode  II) 

(1)  Free  running  characters 

(2)  Character  by  character  release 

(3)  Independent  of  simultaneous  two-way 
operation 

B.  ASCII  and  ITA#2  Code  (Mode  IV) 

(1)  Unidirectional  operation  (send  only  or 
receive  only) 

(2)  Equivalent  to  half  duplex  operation  of 
Mode  II 

(3)  Free  running  characters 

Asynchronous  Operation  Mode  V  (with  automatic  channel 

and  error  control) 

A.  ASCII  Cod* 

(1)  75-300  baud 

(2)  Continuous  two-way  transmission 

B.  ITA  # 2  Code 

( 1 )  45 . 45  to  75  baud 

(2)  Continuous  two-way  transmission 


Message  statistics.  The  maximum  length  message  is 
44,000  characters  (or  550  blocks).  The  maximum 
length  teletype  (TTY)  message  is  6900  characters. 

The  average  message  length  is  2400  characters.  There 
will  be  an  average  of  1.75  addresses  per  message. 

The  average  collective  RI  received  will  have  3*9 
destinations.  The  messages  will  be  distributed  among 
the  various  precedences  as  follows: 


ECP(Y)/CRITIC(W) 

0.1% 

FLASH(Z) 

2.9% 

IMMEDIATE (0 ) 

30.0% 

PRIOR ITY ( P ) 

33.0% 

ROUTINE(R) 

34.0% 

I 

c 

■ 

E 


Maximum  character 
period 

handling 

-  characters 

per  time 

25  line  switch 

1  second 

1  hour 

1  day 

Input 

3600 

6,000,000 

18,000,000 

Output 

2400 

1  1,000,000 

36,000,000 

50  line  switch 

1  second 

1  hour 

1  day 

Input 

5400 

9,000,000 

27,000,000 

Output 

3600 

16,500,000 

54,000,000 

VII.  Errors.  Bit  errors  within  the  switch  or  delivered  to 
output  terminals  shall  not  exceed  1  bit  in  10  billion 
consecutive  bits.  No  more  than  1  message  in  10 
million  messages  shall  be  misrouted.  No  more  than  1 
in  10  million  messages  shall  be  lost  due  to 
nondetection  or  errors  in  the  following:  SOM,  EOM, 
cancel  transmission  (CANTRAN),  or  header.  Loss  of 
receipted  messages  shall  not  exceed  1  in  1  billion. 

VIII.  Processing  time.  Processing  time  will  be  the  sum  of 
the  time  for  reception  of  the  EOM  until  the  message 
is  placed  on  the  output  queue  and  the  time  from  the 
output  line  becoming  available  until  the  first  bit  of 
the  SOM  is  transmitted.  Mean  processing  time  will  be 
2  seconds  per  message.  No  more  than  1  in  1,000 
CRITIC,  ECP,  or  FLASH  messages  will  have  in 
processing  time  greater  than  6  seconds.  No  more  than 
1  in  1,000  messages  of  lower  precedence  will  have  a 
processing  time  in  excess  of  8  seconds. 

IX.  Routing  table  size.  The  routing  table  shall  contain 
room  for: 

1500  single  address  RIs 
200  collective  RIs  with  an  average  20  RIs  each 
600  RIs  for  other  centers 

X.  Intransit  storage  size.  For  a  25  line  switch, 
intransit  storage  shall  be  capable  of  holding  a 
minimum  of  2000  average  length  messages.  For  50 
lines  this  number  shall  be  increased  to  2500. 

XI.  Recovery  and  retrieval.  Reentry  of  messages  from 
intercept  storage  shall  be  such  that  the  first 
message  is  ready  for  reentry  with  10  minutes  of  the 
reentry  directive.  Retrieval  of  CRITIC,  ECP,  and 
FLASH  messages  less  than  24  hours  old  shall  be 
accomplished  in  7  minutes  or  less.  All  other 
messages  less  than  24  hours  old  shall  be  retrieved 
within  15  minutes.  Messages  older  than  24  hours  must 
be  capable  of  being  retrieved  within  30  minutes. 
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